HTML Help

'HTML Help



Const HH_DISPLAY_TOPIC = &H0

Const HH_SET_WIN_TYPE = &H4

Const HH_GET_WIN_TYPE = &H5

Const HH_GET_WIN_HANDLE = &H6

Const HH_DISPLAY_TEXT_POPUP = &HE

Const HH_HELP_CONTEXT = &HF

Const HH_TP_HELP_CONTEXTMENU = &H10

Const HH_TP_HELP_WM_HELP = &H11

Const HH_CLOSE_ALL = &H12



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 Sub Form_Load()

Dim hwndHelp As Long

'Please placed readme.chm in 1 folder

hwndHelp = HtmlHelp(hWnd, "readme.chm", HH_DISPLAY_TOPIC, 0)

End Sub



Private Sub Form_Unload(Cancel As Integer)

HtmlHelp Me.hWnd, "", HH_CLOSE_ALL, 0

End Sub