Test Foro de elhacker.net SMF 2.1

como puedo hacer para ejecutar los archivos de esto
(http://img182.imageshack.us/img182/3318/dibujo9ad.jpg)
con este code
Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub drv_discos_Change()
On Error Resume Next
Dir1.Path = drv_discos.Drive
End Sub

yo seleciono un archivo y lo ejecuto del objeto file1
xfavor
Saludos...
yo le puse esto pero no me funca

Private Sub File1_Click()
Dir1.Path = Shell(File1) 'me dice archivo no encontrado
End Sub


Lo estas haciendo al revez, mira es:
Private Sub File1_Click()
Shell Dir1.Path & "\" & File1.filename 'ahora si man ;)
End Sub

Y si kieres ejecutarlos ocultos o con alguna opcion mas mejor usa la api shell execute ;)