Ever wanted to add a “Search for Help on…” item in themenu bar? Here’s the secret:
'Declares and Constant for Help Menu Declare Function WinHelp% Lib "User" _ (ByVal hWnd%, ByVal HelpFile$, ByVal helpcode%, _ ByVal helpdata&) Declare Function WinHelpByString% Lib "User" _ Alias "WinHelp" (ByVal hWnd%, ByVal HelpFile$, _ ByVal helpcode%, ByVal helpdata$) Const HELP_PARTIALKEY = &H105 'call the search engine in winhelp Sub mnuSEARCH_Click ( ) Dim R% R% = WinHelpByString(Me.hWnd, App.HelpFile, _ HELP_PARTIALKEY, " ") End Sub