Dim _String As String
OFile.Filter = "JPEG Files | *.jpg"
OFile.FileName = ""
If OFile.ShowDialog = Windows.Forms.DialogResult.OK Then
_String = OFile.FileName
Dim _Image As System.Drawing.Image = System.Drawing.Image.FromFile(_String)
Dim _Bmp As Bitmap
_Bmp = New Bitmap(_Image, 100, 100)
_Bmp.Save("C:\TEST.JPG", System.Drawing.Imaging.ImageFormat.Jpeg)
End If