create un menu y pon como llamada INDICE y le añades estas líneas
Dim VR As Integer
VR = WINHELP(hwnd, (App.HelpFile), help_contents, CLng(0))
si creas otra que sea BUSCAR le añades estas otras
Dim VR As Integer
VR = WINHELP(hwnd, (App.HelpFile), help_partialkey, CLng(0))
y en un modulo le añades esta llamada a la API
Declare Function WINHELP Lib "USER32" Alias "WinHelpA" (ByVal hwnd As Integer, ByVal lphelpfile As String, ByVal wcommand As Integer, ByVal dwdata As Any) As Integer
estas son las constantes que debes incluir en el modulo
Global Const help_context = &H1
->Global Const help_contents = &H3
Global Const help_index = &H3
Global Const help_helponhelp = &H4
Global Const help_quit = &H2
Global Const HELPSETCONTENTS = &H5
Global Const HELPSETINDEX = &H5
Global Const HELPCONTEXTPOPUP = &H8
Global Const HELP_KEY = &H101
Global Const HELP_COMMAND = &H102
->Global Const help_partialkey = &H105
solamente te he puestos dos INDICE y BUSCAR que son las constantes con ->
por supuesto que debe existir el archivo HLP
espero te sirva de ayuda
saludos