' HTML-Help
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 Declare Function HtmlHelpTopic Lib "hhctrl.ocx" _
   Alias "HtmlHelpA" ( _
   ByVal hwnd As Long, _
   ByVal lpHelpFile As String, _
   ByVal wCommand As Long, _
   ByVal dwData As Long) As Long
 
Private Const HH_DISPLAY_TOPIC = &H0
 
' Bestimmte Seite einer HTML-Hilfe aufrufen
' wird sTopicFile nicht angegeben, wird autom. die
' Startseite der HTMLHelp-Hilfe angezeigt
'
Public Sub HTMLHelp_ShowTopic( _
  Optional ByVal sTopicFile As String)
 
  Dim sHelpFile As String
 
  ' Pfad zur HTML-Hilfe
  sHelpFile = App.Path & "\CrossTravel.chm"
 
  If sTopicFile = "" Then
    ' Startseite anzeigen
    HtmlHelp 0, sHelpFile, HH_DISPLAY_TOPIC, ByVal 0&
  Else
    ' belibiege Seite anzeigen
    HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, _
      sTopicFile
  End If
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' F1 - Hilfe
    If KeyCode = vbKeyF1 Then
       KeyCode = 0
       HTMLHelp_ShowTopic
    End If
End Sub