Controlli - Cerca il file che esegue un file

Private Declare Function FindExecutable& Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
String)

Dim MaxPath As String * 260


Private Sub Form_Load()
CommonDialog1.ShowOpen
Call FindExecutable(CommonDialog1.FileName, CommonDialog1.InitDir, MaxPath)
MaxPath = Trim(MaxPath)
Label1.Caption = "Per Aprire il File " & vbCrLf & CommonDialog1.FileName & vbCrLf & " e' necessario il programma : " & vbCrLf & MaxPath
End Sub