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
HtmlHelp выводит окно справки
Возвращает описатель окна справки или 0
| HH_DISPLAY_TOPIC = &H0 |
| Const HH_DISPLAY_TOC = &H1 |
| Const HH_CLOSE_ALL = &H12 |
' Вызываем справочный файл из программы
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, "c:\guide.chm", HH_DISPLAY_TOPIC, 0)