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
Private Sub button1_Click(Index As Integer)
m_Value = htmlhelp(Me.hWnd, "aaa/bbb.chm::/ccc/ddd.htm", 0, 0)
End Sub