Declare Function WinHelp Lib "user32" Alias "WinHelpA" _
  (ByVal hWnd As Long, ByVal lpHelpFile As String, _
  ByVal wCommand As Long, ByVal dwData As Long) As Long
 
Private Const HELP_QUIT = &H2
Private Const HELP_CONTENTS = &H3
Private Const HELP_PARTIALKEY = &H105
Private Const HELP_HELPONHELP = &H4
Private Const HELP_CONTEXT = &H1
Private Const HELP_CONTEXTPOPUP = &H8

Dim Result As Long
 
<font color=green>' Inhalt aufrufen</font>
Result = WinHelp(hWnd, App.HelpFile, HELP_CONTENTS, CLng(0))
 
<font color=green>' bestimmte Seite per Context-ID aufrufen</font>
Result = WinHelp(hWnd, App.HelpFile, HELP_CONTENTS, lContextID)
 
<font color=green>' Hilfe benutzen</font>
Result = WinHelp(hWnd, "", HELP_HELPONHELP, CLng(0))
 
<font color=green>' Suchen-Seite aufrufen</font>
Result = WinHelp(hWnd, App.HelpFile, HELP_PARTIALKEY, ByVal 0&)
 
<font color=green>' PopUp-Hilfe anzeigen</font>
Result = WinHelp(hWnd, App.HelpFile, HELP_CONTEXTPOPUP, lContextID)