htmlhelp的问题

[qiangtian]

用如下代码htmlhelp(Me.hWnd,"A.chm",0,0)
调出一个帮助文件，这个文件第一页不显示，提示该页无法显示
但是直接打开chm文件就没这个问题
请问如何解决？

[rainstormmaster]

App.HelpFile = "c:\mc.chm"
SendKeys "{f1}"

[射天狼]

Private 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

Private Sub Label1_Click()
On Error GoTo Errhandle
ShellExecute Me.hwnd, "open", App.path & "\A.chm", vbNullString, vbNullString, 1
Exit Sub
Errhandle:
MsgBox Err.Description & "！", vbInformation
End Sub

[liushanyu]

Const HH_DISPLAY_TOPIC = &H0
htmlhelp(Me.hWnd,"A.chm",HH_DISPLAY_TOPIC,0)