Option Explicit
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hWnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
调用:
r = OSWinHelp(Me.hWnd, App.HelpFile, 3, 0)
查找:
r = OSWinHelp(Me.hWnd, App.HelpFile, 261, 0)