Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Any) As Long


Global Const HELP_QUIT = 2
Global Const HELP_INDEX = 3
Global Const HELP_HELPONHELP = 4
Global Const HELP_PARTIALKEY = &H105
Public ArchivoAyuda As String


ArchivoAyuda = App.Path & "\Ayudasia.hlp"


Public Sub HelpFunction(lhWnd As Long, HelpCmd As Integer, HelpKey As String)
Dim I As Long
  If HelpCmd = HELP_PARTIALKEY Then
    I = WinHelp(lhWnd, ArchivoAyuda, HelpCmd, HelpKey)
  Else
    I = WinHelp(lhWnd, ArchivoAyuda, HelpCmd, 0&)
  End If
End Sub

======
Private Sub MNUICONTENIDO_Click()
   HelpFunction Me.hwnd, HELP_INDEX, ""
End Sub
======
Private Sub MNUINDICE_Click()
   HelpFunction Me.hwnd, HELP_PARTIALKEY, ""
End Sub
=====
  HelpFunction Me.hwnd, HELP_PARTIALKEY, txtPalabra.Text
========================================================


Andrés.
arudas@ucatolicamz.edu.co