Option Explicit
Private objHelp As clsHelp
 
Private Sub Command1_Click()
    Set objHelp = New clsHelp
 
    objHelp.showHelp  "C:\Benutzerdokumentation.chm", "/doku/ek/ek012.htm"
    Set objHelp = Nothing
End Sub

Option Explicit
 
Const HH_DISPLAY_TOPIC = &H0
 
Private Declare Function HTMLHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
      (ByVal hwndCaller As Long, ByVal pszFile As String, _
      ByVal uCommand As Long, ByVal dwData As String) As Long
 
 
Public Sub showHelp(chmRoot As String, htmlRoot As String)
    HTMLHelp hWnd, chmRoot, HH_DISPLAY_TOPIC, htmlRoot
 
End Sub