首先在模块中定义 HHCtrl.ocx API 　

　　Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
　　　(ByVal hwndCaller As Long, _
　　　 ByVal pszFile As String, _
　　　 ByVal uCommand As Long, _
　　　 dwData As Any) As Long 　　

　　在窗体的LOAD事件中，指定该窗体的帮助文件路径

　　** Sub FORM_Load()
　　　　Me.HelpFile = CurrentProject.Path

　　目录文件Help.hhc 　

　　
　　
　　
　　
　　
　　
　　
　　
　　
　　

　　

　　
　　
　　
　　
　　

　　

　　
　　
　　
　　
　　

　　
　　
　　
　　
　　

　　

　　 　　

　　索引文件Help.hhk 　

　　
　　
　　
　　
　　
　　
　　

　　

　　
　　
　　
　　
　　

　　

　　
　　
　　
　　
　　

　　
　　
　　
　　
　　

　　

　　

　　通过HTMLHELP编辑，产生HELP.CHM文件