Private 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

 

Private Sub OpenHelpFile(HelpFileName As String)

    Call WinHelp(Me.hWnd, HelpFileName, 3, 0)

End Sub

 

Private Sub Form_Load

    Call OpenHelpFile("windows.hlp")

End Sub