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

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "Form1"
				   ClientHeight    =   3195
				   ClientLeft      =   60
				   ClientTop       =   345
				   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
				Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
				Const SW_SHOWNORMAL = 1
				Private Sub Form_Load()
				  ShellExecute Me.hwnd, "open", "系统帮助.chm", vbNullString, App.Path, SW_SHOWNORMAL
				End Sub