建立一个CommonDialog控件名为：CommonDialog1
建立一个按扭空间名为：Command1,给Command1添加Click事件：
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开exe文件"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "*.exe|*exe;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName
End If
End Sub