Enum Days
        Saturday
        Sunday
        Monday
        Tuesday
        Wednesday
        Thursday
        Friday
End Enum 'Days
 
Public Shared Sub Main()
        Dim weekdays As Type = GetType(Days)
        Dim s As String
        For Each s In  [Enum].GetNames(weekdays)
            Console.WriteLine("{0,-11} = {1}", s, [Enum].Format(weekdays, _
              [Enum].Parse(weekdays, s), "d"))
        Next s