Visual Basic - explorador

soy algo novato y en mis practicas estoy realizando un explorador
emplee los objetos filelist,Dirlist,Drivelist

y perfecto explora y me deja navegar pero mi duda es:

como hago para que me deje ejecutar o abrir el archivo o programa que selecciono con mi explorador?

agradezco si me pueden ayudar

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 Sub File1_DblClick()

Dim lValDev As Long
lValDev = ShellExecute(Me.hwnd, "Open", File1.Path & "\" & File1, "", "", 1)

End Sub

mil gracias por su colaboracion

lo implementare a ver como me va