Openfiledialog
 

Hola estoy haciendo una aplicacion y estoy haciendo que al cargar el formulario me salga un cuadro de windows OPENFILEDIALOG para cargar una imagen y pongo este codigo pero me da un error de una excepcion, me podrian ayudar. Gracias!!

OpenFileDialog1.Multiselect = True
OpenFileDialog1.ShowReadOnly = True
OpenFileDialog1.Filter = "Todos los archivos|*.*|JPEG|*.jpg"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim MyImg As Image
Dim NumArch As Integer

NumArch = FreeFile()
FileOpen(NumArch, OpenFileDialog1.FileName, OpenMode.Input)
Input(NumArch, MyImg)
PictureBox1.Image = MyImg
End If
En el paso de hacer el Input(NumArch, MyImg) me dice que no se puede hacer la conversión.

Proba poner Dim MyIMG as Bitmap a ver que sucede...
Abrazo