首先在模块中定义 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]