Public Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub H22_Click()
Dim i As String '帮助文件索引.
i = App.Path & "\yhhelp.chm"
HtmlHelpA Me.hwnd, i, 2, 0
End Sub