Visual Basic - Explorador en vba 2010/2008

Buenas estoy creando un sistema operativo,pero le faltan cosas:hoy me gustara crear un explorador de archivos,con un OpenFileDialog que cuando se escoga un archivo .exe de windows se abra el .exe


Gracias a los que me ayuden

Si deseas hacerlo en vb6:
Inserta un driverListBox
Inserta un DirListBox
Inserta un File1ListBox

Entra a las propiedades del FileListBox y en Pattern pon *.Exe

ya hecho lo anterior pega el codigo de abajo en la seccion de declaraciones:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Drive1.Drive = Dir1.Path
End Sub

Private Sub File1_Click()
Dim r As Integer
On Error GoTo fin
r = Shell(File1.FileName)
Exit Sub
fin:
MsgBox "Ha ocurrido un error", 32, "Mensaje"
End Sub

Para usarlo solo da click en el programa
si deseas que te lo envie mi mail es:
[email protected]

Gracias por ayudarme pero te recuerdo el titulo del mensaje que he enviado.
Explorador en vba 2010/2008
Explorador en "vba 2010/2008"


lo necesito en visual basic 2010/2008


Gracias de todos modos,Enrique