هذا في الفورم
Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256

Public Function FindExecutable(s As String) As String
Dim i As Integer
Dim s2 As String

s2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)

i = FindExecutableA(s & Chr$(0), vbNullString, s2)

If i > 32 Then
FindExecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
FindExecutable = ""
End If

End Function

Private Sub Image1_Click()
CM.ShowOpen
Text1 = CM.FileName
Text2 = FindExecutable(Text1)

End Sub