Author  

Language  

Operating Systems  

'First place a existing chm File in the project path.
'You must know what name your htm pages have to work
'correct.

'In a module place the follwing code
Option Explicit
Private Declare Function HtmlHelpTopic Lib "hhctrl.ocx" Alias _
    "HtmlHelpA" (ByVal hWnd As Long, ByVal lpHelpFile As String, _
    ByVal wCommand As Long, ByVal dwData As String) As Long

Sub ShowHtmlHelp(ByVal tHelpFile As String, ByVal tHelpPage As String)
    Const HH_DISPLAY_TOPIC =3D &H0
    On Error Resume Next
    ' open the help page in a modeless window
    HtmlHelpTopic 0, tHelpFile, HH_DISPLAY_TOPIC, tHelpPage
End Sub

'Put a command  button to your form and name it cmdHelp
Private Sub cmdHelp_Click()
    'This is only a example
    ShowHtmlHelp App.path & "\MyHelp.chm", "Introduction.htm"
End Sub