Agregar a tu formulario, un control picture y un control commondialog... y prueba el siguiente codigo...
Private Sub Picture1_DblClick()
CommonDialog1.ShowOpen
If Len(CommonDialog1.FileName) > 0 Then
Call Cargar_Imagen(CommonDialog1.FileName)
End If
End Sub
Public Sub Cargar_Imagen(ByVal Ruta As String)
On Error GoTo control
Picture1.Picture = LoadPicture(Ruta)
Exit Sub
control:
Exit Sub
End Sub
Para saber mas, de como opera el control commondialog... un link...
http://www.monografias.com/trabajos2/guiavb/guiavb3.shtml
