Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                        (ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, _
                         ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 2


Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDrive Drive1.Drive
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo drivehandler
Dir1.Path = Drive1.Drive
Exit Sub
drivehandler:
Drive1.Drive = Dir1.Path
Exit Sub
End Sub

Private Sub File1_Click()
Dim i As Long

i = ShellExecute(Me.hwnd, "open", (File1.FileName), vbNull, vbNull, 3)
End Sub

    Source: geocities.com/matkins70