access调用CHM的问题

我想在代码中通过得到的窗体控件名调用一个chm帮助文档。就是在控件上按下F1弹出chm文档中的帮助，还是一一对应的。应该怎么写代码呢。我在网上找了一些代码，可用的时候出了问题，可以打开chm，但是chm的目录没有随之改变而改变，还是停留在起点。请问这是什么原因。哪位能提供一下自己写的代码，希望能有清晰的解释。

---

使用 :: 获取内部内容。
比如 ShellExecute "c:\1.chm::1.htm", "open", "", "", SW_SHOW

---

也可以调用HHControl API。但是记得在关闭程序窗口前先关闭帮助，否则程序会崩溃。
HHCtrl API提供了精确定位的方法。

---

Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long 

The HtmlHelp() API function is declared as follows:

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
hwndCaller
The hwndCaller member is defined as a handle to an application window or Null. If a window handle is specified, the HTML Help window will be forced to be on-top of the calling window. If a 0 (zero) is specified, this condition will not occur.

When a handle, the corresponding window owns the html help window and receives any messages sent by htmlhelp back to the owner. By setting this to null (0& in VB parlance), one ca