Public 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

Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_HELP_CONTEXT = &HF

Private Sub Hilfe_Chm()
  Dim hlpFile As String

  hlpFile = App.Path & "\DeineHilfe.chm"
  HtmlHelp 0, hlpFile, HH_DISPLAY_TOPIC, ByVal 0&
End Sub