Windows API函数,希望大伙有用哦

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "Form1"
				   ClientHeight    =   3195
				   ClientLeft      =   165
				   ClientTop       =   450
				   ClientWidth     =   4680
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3195
				   ScaleWidth      =   4680
				   StartUpPosition =   3  '窗口缺省
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				Const HELP_CONTENTS = &H3
				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, App.Path + "\COMCTL2.HLP", HELP_CONTENTS, ByVal 0
				End Sub