Get Enum value names
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