在VB中使用枚举变量

VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性：
Public Enum TimeOfDay
Morning = 0
Afternoon = 1
Evening = 2
End Enum
Sub Main()
Dim RightNow As TimeOfDay
If Time $#@62;= #12:00:00 AM# And Time $#@60;#12:00:00 PM# Then
RightNow = Morning
ElseIf Time $#@62;= #12:00:00 PM# And Time $#@60;#6:00:00 PM# Then
RightNow = Afternoon
ElseIf Time $#@62;= #6:00:00 PM# Then
RightNow = Evening
End If
End Sub