Enum Class provides the base class for enumerations.
Public Enum Status As Integer
Late = -1
OnTime = 0
Early = 1
End Enum
Public Module Example
Public Sub Main()
Dim status As Status = Status.OnTime
Console.WriteLine("Arrival Status: {0} ({0:D})", status)
End Sub
End Module