Public Enum Status As Integer
Unknown = -3
Late = -1
OnTime = 0
Early = 1
End Enum
Public Module Example
Public Sub Main()
Dim names() As String = [Enum].GetNames(GetType(Status))
Console.WriteLine("Members of {0}:", GetType(Status).Name)
Array.Sort(names)
For Each name In names
Dim status As Status = CType([Enum].Parse(GetType(Status), name),
Status)
Console.WriteLine(" {0} ({0:D})", status)
Next
End Sub
End Module