frm_about.frm

很经典的抽奖程序

VERSION 5.00
Begin VB.Form frm_About 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于本软件1.1"
   ClientHeight    =   3165
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5580
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3165
   ScaleWidth      =   5580
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   375
      Left            =   4320
      TabIndex        =   4
      Top             =   2640
      Width           =   975
   End
   Begin VB.Line Line2 
      X1              =   360
      X2              =   5160
      Y1              =   480
      Y2              =   480
   End
   Begin VB.Line Line1 
      X1              =   360
      X2              =   5280
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Label Label5 
      Caption         =   "Ｅ－mail：[e-mail]"
      Height          =   255
      Left            =   600
      TabIndex        =   3
      Top             =   1800
      Width           =   3255
   End
   Begin VB.Label Label4 
      Caption         =   "联系电话：[phone]  13081215250"
      Height          =   255
      Left            =   600
      TabIndex        =   2
      Top             =   1440
      Width           =   4815
   End
   Begin VB.Label Label3 
      Caption         =   "作    者：李旭"
      Height          =   255
      Left            =   600
      TabIndex        =   1
      Top             =   1080
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "如果发现有不合理之处，请献上你的宝贵意见：）"
      Height          =   255
      Left            =   600
      TabIndex        =   0
      Top             =   720
      Width           =   4335
   End
End
Attribute VB_Name = "frm_About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Unload Me
End Sub