用它可以打开所有的第三方程序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 LongShellExecute 0, "open", App.Path & "\FGF.CHM", vbNullString, vbNullString, 5
Shell "c:\winnt\notepad.exe",vbNormalFocus
vbNormalFocus指执行的程序执行后窗体的状态