Que tal amigo..? es muy sencillo..Primero que nada debes crear un textbox donde introduciras la direccion o patch de tu imagen,luego tienes que hacer de la siguiente manera:
Private Sub Command1_Click()
Dim patch As String
If Text1.Text <> "" Then ' El text1 es la direccion del patch
patch = Text1.Text
Dim Imagen
Imagen = Shell("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscre en " & patch)
Else
MsgBox "Ingresar direccion de imagen!"
End If
End Sub
Si tienes dudas contactame al msn
[email protected]
Espero que te sirva..saludos!