没那么麻烦:App.HelpFile = yourHelpFile,这样用F1就可以调用帮助文件。
用API大方法很多,这是一种:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1    Dim lRetVal As Long
    lRetVal = ShellExecute(Me.hWnd, "Open", App.HelpFile, "", "", SW_SHOWNORMAL)
    If lRetVal <= 32 Then
        MsgBox "The help file can not be opened.", , "TeleSmart"
    End If