chm Help Searching

I want to add menu options under Help.
Contents, Index, & Search
I have Contents and Index working right. I can not get Search to work at all.
VB Code:
Const HH_DISPLAY_TOC = &H1
Const HH_DISPLAY_INDEX = &H2
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TOPIC = &H0
Const HH_SET_WIN_TYPE = &H4
Const HH_GET_WIN_TYPE = &H5
Const HH_GET_WIN_HANDLE = &H6
Const HH_DISPLAY_TEXT_POPUP = &HE
Const HH_HELP_CONTEXT = &HF
Const HH_TP_HELP_CONTEXTMENU = &H10
Const HH_TP_HELP_WM_HELP = &H11
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 Long
In my subs for the menu I have
for Contents
HtmlHelp hwnd, App.HelpFile, HH_DISPLAY_TOC, 0
for index
HtmlHelp hwnd, App.HelpFile, HH_DISPLAY_INDEX, 0
for search
HtmlHelp hwnd, App.HelpFile, HH_DISPLAY_SEARCH, 0

The first two work fine just search does not work. Nothing happens at all.