form1.frm

这些为Vb皮肤源码来的

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8028
   ClientLeft      =   48
   ClientTop       =   324
   ClientWidth     =   7836
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8028
   ScaleWidth      =   7836
   WindowState     =   2  'Maximized
   Begin VB.VScrollBar VScroll1 
      Height          =   2052
      Left            =   7080
      TabIndex        =   17
      Top             =   1800
      Width           =   492
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   372
      Left            =   3120
      TabIndex        =   16
      Top             =   3480
      Width           =   3852
   End
   Begin VB.ListBox List1 
      Height          =   1584
      Left            =   3120
      TabIndex        =   15
      Top             =   1800
      Width           =   3852
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000014&
      Height          =   2052
      Left            =   240
      ScaleHeight     =   2004
      ScaleWidth      =   2364
      TabIndex        =   12
      Top             =   1800
      Width           =   2412
      Begin VB.Shape Shape1 
         Height          =   1092
         Left            =   720
         Top             =   360
         Width           =   732
      End
      Begin VB.Line Line1 
         X1              =   240
         X2              =   240
         Y1              =   240
         Y2              =   1560
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Frame1"
      Height          =   1572
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   7332
      Begin VB.ComboBox Combo1 
         Height          =   288
         ItemData        =   "Form1.frx":0000
         Left            =   1440
         List            =   "Form1.frx":000D
         TabIndex        =   14
         Text            =   "Combo1"
         Top             =   960
         Width           =   1572
      End
      Begin VB.OptionButton Option3 
         Caption         =   "Option2"
         Height          =   252
         Left            =   5520
         TabIndex        =   11
         Top             =   1080
         Width           =   1692
      End
      Begin VB.CheckBox Check3 
         Caption         =   "Check2"
         Height          =   252
         Left            =   3240
         TabIndex        =   10
         Top             =   1080
         Width           =   1692
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Option2"
         Height          =   252
         Left            =   5520
         TabIndex        =   9
         Top             =   720
         Width           =   1692
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Option1"
         Height          =   252
         Left            =   5520
         TabIndex        =   8
         Top             =   360
         Width           =   1692
      End
      Begin VB.CheckBox Check2 
         Caption         =   "Check2"
         Height          =   252
         Left            =   3240
         TabIndex        =   7
         Top             =   720
         Width           =   1692
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   252
         Left            =   3240
         TabIndex        =   6
         Top             =   360
         Width           =   1692
      End
      Begin VB.TextBox Text1 
         Height          =   372
         Left            =   1440
         TabIndex        =   5
         Text            =   "Text1"
         Top             =   360
         Width           =   1572
      End
      Begin VB.Label Label2 
         Caption         =   "性别："
         Height          =   252
         Left            =   360
         TabIndex        =   13
         Top             =   960
         Width           =   972
      End
      Begin VB.Label Label1 
         Caption         =   "输入姓名："
         Height          =   252
         Left            =   360
         TabIndex        =   4
         Top             =   480
         Width           =   972
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   732
      Left            =   5520
      Picture         =   "Form1.frx":001F
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6600
      Width           =   1932
   End
   Begin VB.CommandButton Command2 
      Caption         =   "看看对话框"
      Height          =   732
      Left            =   2880
      TabIndex        =   1
      Top             =   6600
      Width           =   2172
   End
   Begin VB.CommandButton command1 
      Caption         =   "看看消息框"
      Height          =   732
      Left            =   360
      TabIndex        =   0
      Top             =   6600
      Width           =   2292
   End
   Begin MSComctlLib.TabStrip TabStrip1 
      Height          =   1452
      Left            =   5400
      TabIndex        =   18
      Top             =   4080
      Width           =   2172
      _ExtentX        =   3831
      _ExtentY        =   2561
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   5
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "1111"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "22222"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "3333"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "44444"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "5555"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Slider Slider1 
      Height          =   372
      Left            =   240
      TabIndex        =   19
      Top             =   6000
      Width           =   7332
      _ExtentX        =   12933
      _ExtentY        =   656
      _Version        =   393216
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   1452
      Left            =   240
      TabIndex        =   20
      Top             =   4080
      Width           =   4932
      _ExtentX        =   8700
      _ExtentY        =   2561
      _Version        =   393216
      Rows            =   5
      Cols            =   5
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    MsgBox "这是消息框"
End Sub

Private Sub Command2_Click()
    Dialog.Show
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub