Запуск HtmlHelp из приложения - VB

Формулировка задачи:

написал такую функцию :

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 hlp_help_Click()
    Dim nRet As Long
    nRet = HtmlHelp(Me.hWnd, App.HelpFile, HH_DISPLAY_TOPIC, 0)
End Sub

Причем что интересно: вроде как работало, а теперь ни в какую? Поскажите как правильно вызывать то?

Решение задачи: «Запуск HtmlHelp из приложения»

textual
                            Листинг программы 
                        
                            ShellExecute твояформа.hwnd, 'open','hh', App.HelpFile + '::/' + strChapter, CurDir$, SW_SHOW