Private Declare Function HtmlHelp Lib "hhctrl.ocx" _
             Alias "HtmlHelpA" (ByVal hwndCaller As Long, _
             ByVal pszFile As String, ByVal uCommand As _
             Long, ByVal dwData As Long) As Long
 
Private Const HH_DISPLAY_TOPIC = &H0
 
Private Sub mnuHelp_Click()
        Dim Datei As String
Datei = App.Path & "\Hilfedatei ELAN.chm"
Call HtmlHelp(0, Datei, HH_DISPLAY_TOPIC, ByVal 0&)
End Sub