Attribute VB_Name = "HTMLHelp"
Option Explicit

'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 String) As Long
'
'Private Const HH_DISPLAY_TOPIC = &H0

Public Sub HTMLHelp_ShowTopic(Optional ByVal sTopicFile As String)
'  Dim sHelpFile As String
'
'  sHelpFile = AppPath + "Nettalk.chm"
'
'  On Error Resume Next
'  If sTopicFile = "" Then
'    HtmlHelp 0, sHelpFile, HH_DISPLAY_TOPIC, ByVal 0&
'  Else
'    HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sTopicFile
'  End If
'  If Err > 0 Then MsgBox Err.Description, vbCritical
  CallWebSite "http://www.ntalk.de/nettalkdoku/doku.php?do=search&id=" + sTopicFile, True
End Sub
