WinHelp

'WinHelp

Const HELP_COMMAND = &H102&

Const HELP_CONTENTS = &H3&

Const HELP_CONTEXT = &H1

Const HELP_CONTEXTPOPUP = &H8&

Const HELP_FORCEFILE = &H9&

Const HELP_HELPONHELP = &H4

Const HELP_INDEX = &H3

Const HELP_KEY = &H101

Const HELP_MULTIKEY = &H201&

Const HELP_PARTIALKEY = &H105&

Const HELP_QUIT = &H2

Const HELP_SETCONTENTS = &H5&

Const HELP_SETINDEX = &H5

Const HELP_SETWINPOS = &H203&



Private Declare Function WinHelp
Lib "user32.dll"
Alias _

"WinHelpA" (ByVal hWndMain
As Long, ByVal lpHelpFile
As String, _

ByVal uCommand As Long, dwData
As Any) As Long


Private Sub Form_Load()

WinHelp Me.hWnd, "C:\Windows\help\display.hlp", _

HELP_CONTENTS, ByVal 0
End Sub