Private Sub GetImage(ByVal FileName As String, ByRef pbx As PictureBox)

Dim ExifTool As New Process

ExifTool.StartInfo.FileName = "C:\WINDOWS\exiftool.exe"
ExifTool.StartInfo.Arguments = "-b -previewimage" + " " + Chr(34) + FileName + Chr(34)
ExifTool.StartInfo.UseShellExecute = False
ExifTool.StartInfo.RedirectStandardOutput = True
ExifTool.StartInfo.CreateNoWindow = True
ExifTool.Start()

pbx.Image = New Bitmap(ExifTool.StandardOutput.BaseStream).GetThumbnailImage(120, 80, Nothing, Nothing)

ExifTool.Close()

End Sub