可以这样： 
Public Enum InterfaceColors 
My0 = -1 
My1 = 3 
My2 = 3 
My3 
My4 
End Enum 
则：My0=-1，My1=3，My2=3，My3=4，My4=5 
也可以这样： 
Public Enum InterfaceColors 
My0 
My1 
My2 
My3 
My4 
End Enum 
则：My0=0，My1=1，My2=2，My3=3，My4=4 
在程序中可这样应用： 
Dim MyColor As InterfaceColors 
MyColor = My2 
If MyColor = My2 Then .....

下面的示例用 Enum 语句定义一个命名常数的集合。在本例中是一些可以选择的颜色常数用于设计数据库的数据输入窗体。 
Public Enum InterfaceColors 
icMistyRose = &HE1E4FF& 
icSlateGray = &H908070& 
icDodgerBlue = &HFF901E& 
icDeepSkyBlue = &HFFBF00& 
icSpringGreen = &H7FFF00& 
icForestGreen = &H228B22& 
icGoldenrod = &H20A5DA& 
icFirebrick = &H2222B2& 
End Enum 
一定要赋值，以后用icFirebrick 代替 &H2222B2& 还可以定义变量 
dim a as InterfaceColors