' API-Deklaration
Public Declare Function GetActiveWindow Lib "user32" _
  Alias "GetActiveWindow" () As Long
 
Public Declare Function WinHelp Lib "user32" _
  Alias "WinHelpA" ( _
  ByVal hWnd As Long, _
  ByVal lpHelpFile As String, _
  ByVal wCommand As Long, _
  ByVal dwData As Long) As Long
 
' Konstanten
Public Const HELP_QUIT = &H2
Public Const HELP_CONTENTS = &H3
Public Const HELP_PARTIALKEY = &H105
Public Const HELP_HELPONHELP = &H4
Public Const HELP_CONTEXT = &H1
Public Const HELP_CONTEXTPOPUP = &H8

' Kontext-Hilfe aufrufen
Dim nResult As Long
Dim nContextID As Long
Dim sHelpFile As String
 
sHelpFile = "c:\app\MyHelp.hlp"
nContextID = 100
 
nResult = WinHelp(GetActiveWindow(), sHelpFile, HELP_CONTEXT, nContextID)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de