菜单和控件 EndPage= Cdl.ToPage HelpCommand- HelpCNT Or NumCopies= Cd1. Copies cdlHelpSetContents For i=I To NumCopies ShowHelp Next i End with ErrHandler5 Case o Case 6 End With cd1 End select HelpFile="vocus. hlp End Sub菜单和控件 EndPage = Cd1.ToPage NumCopies = Cd1.Copies For i = 1 To NumCopies Next i ErrHandler5: Case 6 With Cd1 .HelpFile = "vocus.hlp" .HelpCommand = HelpCNT Or cdlHelpSetContents .ShowHelp End With Case 0 End End Select End Sub