SoloCodigo

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