如何在VB6中通过菜单打开.hlp格式的文件

Question

小弟最近在做一软件时，欲通过菜单来打开.hlp格式的文件。但先后在菜单sub中使用open的顺序和非顺序打开方式、shell（"e:\help.hlp"），都不能打开该.hlp格式的文件。最后不得不在SUB中通过模拟键盘输入sendkeys"{f1}"，但第一次点击只能使该help文件调入，需要第二次点击才能在软件的上层出现（我已将该help文件设置为软件的默认帮助文件）。
    现请各位大虾指教该用何语句打开该格式文件。

Answer 1

http://expert.csdn.net/Expert/topic/1899/1899379.xml?temp=.8659174我刚回答了一个，你参考一下。呵，实在不愿写了

Answer 2

'--------帮助文件 API---------------
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
'打开菜单
Private Sub M_Help_Click()
    On Error Resume Next
    Dim nRet As Integer
    If Len(App.HelpFile) = 0 Then
        MsgBox "无法显示帮助目录。", vbOKOnly + vbExclamation, Me.Caption
    Else
        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
        If Err Then
            MsgBox Err.Description, vbOKOnly + vbExclamation, Me.Caption
        End If
    End If
End Sub