AllowHtmlHelp

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
Const HH_DISPLAY_TOPIC = &H0
Const HH_SET_WIN_TYPE = &H4
Const HH_GET_WIN_TYPE = &H5
Const HH_GET_WIN_HANDLE = &H6
'Display String resource ID or text in a pop-up window.

Const HH_DISPLAY_TEXT_POPUP = &HE
'Display mapped numeric value In dwData.

Const HH_HELP_CONTEXT = &HF
'Text pop-up help, similar To WinHelp's HELP_CONTEXTMENU.

Const HH_TP_HELP_CONTEXTMENU = &H10
'Text pop-up help, similar To WinHelp 's HELP_WM_HELP.

Const HH_TP_HELP_WM_HELP = &H11
'Opens the compiled help file

Private Sub ShowHelpFile(strFilename As String)
Dim hwndHelp As Long
'The return value is the window handle of the

'created help window.

hwndHelp = HtmlHelp(hWnd, strFilename, HH_DISPLAY_TOPIC, 0)
End Sub

Returns:
l'handler della finestra del file Help.

Richiede la presenza del file hhctrl.ocx
normalmente fornito con Internet Explorer