form1.frm

很好的教程原代码！

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  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ExtractIcon函数声明
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
(ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long _
) As Long
    ' GetWindowWord 函数声明
Private Declare Function GetWindowWord Lib "user32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long _
) As Integer
' ShellAbout 函数声明
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hWnd As Long, _
ByVal szApp As String, _
ByVal szOtherStuff As String, _
ByVal hIcon As Long _
) As Long
' 相关的常量声明
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const GWL_WNDPROC = (-4)
Private Const GWW_HINSTANCE = (-6)
' 显示About窗口子过程
Public Sub ShowAbout()
    Dim Ret As Long
    Dim Icon As Long
    Dim Inst As Long
    Inst = GetWindowWord(Me.hWnd, GWW_HINSTANCE)
    '从可执行文件中抽取图标
    Icon = ExtractIcon(Inst, "DEMO.EXE", 0)
    '调用Windows系统标准ABOUT窗口
    Ret = ShellAbout(Me.hWnd, "演示程序", _
    "版权所有［c］2001－2004微软" & Chr$(13) & Chr$(10) & "序列号：123456", Icon)
End Sub
' 按钮单击事件
Private Sub Command1_Click()
    ShowAbout
End Sub