【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“3.3.3.frm”一文，供大家参考学习!

    VERSION 5.00
    Begin VB.Form Form6 
       Caption         =   "Form6"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form6"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   1800
          TabIndex        =   1
          Text            =   "Text1"
          Top             =   840
          Width           =   975
       End
       Begin VB.CommandButton Command1 
          Caption         =   "Command1"
          Height          =   855
          Left            =   1320
          TabIndex        =   0
          Top             =   1680
          Width           =   1935
       End
    End
    Attribute VB_Name = "Form6"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Enum Color
    '定义名为Color的枚举类型
    Black = 1
    White = 2
    Yellow = 3
    Red = 4
    Green = 5
    Blue = 6
    End Enum
    Private Sub Command1_Click()
    Dim My_Color As Color
    '定义变量My_Color为Color的枚举类型
    Dim Back_Color As Color
    '定义变量Back_Color为Color的枚举类型
    My_Color = Green
    '对My_Color赋值
    Back_Color = Black
    '对Back_Color赋值
    Text1.Text = My_Color + Back_Color
    '文本框内显示My_Color + Back_Color的值
    End Sub