Enumのメンバ一覧をテキストのリストで取得する

Class1.vb

''' <summary>
''' Enumから仕様書起こし用　ヘルパクラス
''' </summary>
''' <remarks></remarks>
<TestClass()>
Public Class EnumHelperClass

    ''' <summary>
    ''' DayOfWeek
    ''' </summary>
    ''' <remarks></remarks>
    <TestMethod()>
    Public Sub EnumDayOfWeek()
        Console.WriteLine("Enum DayOfWeek")
        Console.WriteLine("Member:Value")
        Console.WriteLine("------------")
        For Each rt As DayOfWeek In [Enum].GetValues(GetType(DayOfWeek))
            Console.WriteLine("{0}:{1}", rt.ToString(),
                              [Enum].Format(GetType(DayOfWeek), rt, "d"))
        Next
        Console.WriteLine("------------")
    End Sub
End Class