首先在模块中定义 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事件中，指定该窗体的帮助文件路径  　　

Private Sub FORM_Load() 
　　　　Me.HelpFile = CurrentProject.Path & "\help\help.chm" 
　　End Sub 　
　　如果使用按钮，按钮的事件处理程序 　  　　

Private Sub cmdHelp_Click()  
　　　　Call HtmlHelp(0, CurrentProject.Path & "\help\help.chm", &H0, ByVal "index.htm")  
　　End Sub 　 
　　例子中，在文本框1上按 F1，需在文本框的 帮助上下文ID 填入 1001  
　　　　　　在文本框2上按 F1，需在文本框的 帮助上下文ID 填入 1002 　　  
　　制作html文件  
　　index.htm 对应按钮  
　　help1.htm 对应文本框1  
　　help2.htm 对应文本框2 　　  
　　制作topicID.h定义主题ID 　  
　　#define IDH_HA 1000  
　　#define IDH_HB 1001  
　　#define IDH_HC 1002 　  
　　制作ID.h定义主题ID对应html文件　  
　　IDH_HA = index.htm ; 0  
　　IDH_HB = help1.htm ; 1  
　　IDH_HC = help2.htm ; 2 　  
　　使用HTMLHELP制作产生Help.hhp Help.hhc Help.hhk三个文件 　　  
　　帮助项目文件Help.HHP 　　 
　　[OPTIONS]  
　　Auto Index=Yes  
　　Compatibility=1.1 or later  
　　Compiled file=Help.chm  
　　Contents file=Help.hhc  
　　Default Window=main  
　　Default topic=index.htm  
　　Display compile progress=Yes  
　　Error log file=ErrorLog.log  
　　Full-text search=Yes  
　　Index file=Help.hhk  
　　Language=0x804 中文(中国)  
　　Title=帮助  
　　[WINDOWS]  
　　main=,"Help.hhc","Help.hhk","index.htm","index.htm",,,,,0x23520,222,0x1046,[10,10,780,560],0xb0000,,,,,,0  
　　[FILES]  
　　HELP1.HTM  
　　HELP2.HTM  
　　index.htm  
　　[ALIAS]  
　　#include ID.H  
　　[MAP]  
　　#include topicID.h  
　　[INFOTYPES]　
目录文件Help.hhc 　  
索引文件Help.hhk 　  
通过HTMLHELP编辑，产生HELP.CHM文件