public enum fruit
    apple
    pear
    peach
end enum

这就是啊

Option Explicit

Enum a1
  你死 = 0
  我死
  大家死
End Enum

Public Sub fun(n As a1)
  Select Case n
  Case 你死
    Debug.Print "你死"
  Case 我死
    Debug.Print "我死"
  Case 大家死
    Debug.Print "大家死"
  Case Else
    Debug.Print "都活着"
  End Select
End Sub

Private Sub Form_Load()
    fun 我死
    fun 11
End Sub

'无聊！~ m(_ _)m

enum 水果
    apple = "苹果"
    pear = &H1
    peach = &H2
end enum

dim s as 水果
s=apple

Public Enum fruit
    apple = 1
    pear
    peach
End Enum



Private Sub Command1_Click()
   Dim s As fruit
    s = fruit.apple + 1
    Print s 's=pear
End Sub
  可以当成long型数来进行算术运算。

总之，枚举类型定义之后，声明一个变量为这种类型
那么，这个变量的取值范围，就限定在枚举过的那些值，而不能是其他值，否则就出错了。

例如：假定性别只有“男”和“女”，那么就可以定义：
Public Enum 性别
    男
    女
End Enum
然后声明一个变量“登记表_性别”为“性别”类型变量。就可以使用了
dim 登记表_性别 as 性别