如何在应用程序中调用帮助文件?

在软件中帮助文件是非常重要的，它是用户认识软件的窗口．
下面给出怎么样在VB中调用帮助文件的代码．

新建一个工程，在窗体上加入控件CommonDialog1，然后在代码窗口添加下面代码（最好放在模块内）

Option Explicit

'调用帮助文件，参数：IndexID
Public Sub ShowMeHelp(Optional IndexID As Integer)
    On Error GoTo Err
    With CommonDialog1
         .HelpFile = App.HelpFile
         If IndexID = 0 Then
            .HelpCommand = cdlHelpContents
         Else
            .HelpContext = IndexID
            .HelpCommand = cdlHelpContext
         End If
         .ShowHelp
    End With
         Exit Sub
Err:
    MsgBox Err.Description, vbInformation, "提示"
End Sub