La frocedura funziona:

Private Sub Picture1_Click()
Dim Path_Img As String
Path_Img = App.Path & "\img\casa.gif"
ShellExecute Me.hwnd, vbNullString, Path_Img, vbNullString, "C:\", SW_SHOWNORMAL

End Sub

Il mio problema ora è assegnare alla variabile "Path_Img" il nome dell'immagine contenuta nella PictureBox, in modo da avere una funzione dinamica visto che il contenuto della picutre box puo variare, ma non riesco a trovare un metodo che faccia questo mestire. Ho pensato di copiare il nome in una TextBox nascosta e poi prenderlo da li.Qualche consiglio?