Private Sub mnuHtmlHelp_Click()
Help hwnd, "Help.chm", HH_HELP_CONTEXT, ByVal 1000&
End Sub

должен появится хелп, но не ошибки ни хелпа.