codice:
'questo e quello che mi riporta il file selez. nella textbox
Private Sub File1_Click()
    
   Text2.Text = File1.FileName
   Image1.Picture = LoadPicture(File1.Path & "\" & (File1.FileName))
End Sub
codice:
 'e questo e con cui lo eseguo
Private Sub Command2_Click()
On Error GoTo itrErrTrap
    
    Dim RetVal As Variant
    ' Prende il Nome del file eseguibile:
    
    Text2.Text = File1.Path = path_drive & cartella
   RetVal = Shell(File1.Path & "\" & (File1.FileName))
itrErrTrap:
    If Err > 0 Then MsgBox Err.Description
End Sub