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
'Declare Function ListView1_ItemClick Lib "MsComctlLib" (ByVal Item As MsComctlLib.ListItem)
Private Sub mnuHelp_Click() '帮助
Dim Dummy As Long
Dim HelpChmFile As String
HelpChmFile = App.Path & "\" & "help.chm"
Dummy = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)
End Sub