先存为HTML文件
再用HTML HELP 生成.CHM文件
用API调用即可VB CODE:Option ExplicitPrivate 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 LongPrivate Const HH_DISPLAY_TOPIC = &H0
Private Const HH_CLOSE_ALL = &H12Private Sub Command1_Click()
   Call HtmlHelp(Me.hWnd, "IEXPLORE.CHM", _
                       HH_DISPLAY_TOPIC, 0)
Unload Me
End Sub