如何按F1键定位到CHM文件中特定的某页？

Question

'声明HtmlHelp API函数
Public Declare Function Htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
                      (ByVal hWnd As Long, ByVal lpHelpFile As String, _
                      ByVal wCommand As Long, ByVal dwData As Long) As Long
                      
'定义uCommand 常数
Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_DISPLAY_INDEX = &H2
Public Const HH_HELP_CONTEXT = &HF
Public Const HH_DISPLAY_SEARCH = &H3
Public Const HH_DISPLAY_TEXT_POPUP = &HEDim m_Value As Longm_Value = Htmlhelp(0, App.Path & "\Help.chm::/youwantpage.htm", HH_DISPLAY_TOPIC, 0)If m_Value = 0 Then
    MsgBox "无法打开帮助文件。", vbOKOnly + vbInformation, "提示"
End If