module1.bas

来自「vb源码大全」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Global Const HELP_CONTENTS = &H3&
Global Const HELP_KEY = &H101
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
'必须同一行，为Windows 98、Windows NET

Declare Function WinHelp1 Lib "User" (ByVal hwnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer '必须同一行；为WIN3.X