Imports System
Imports System.Collections.Generic
Public Class Test
Public Enum Days
Sat
Sun
Mon
Tue
Wed
Thu
Fri
End Enum
Public Shared Sub Main()
Dim arr As Array = System.Enum.GetValues(GetType(Days))
Dim lst As New List(Of String)(arr.Length)
For i As Integer = 0 To arr.Length - 1
lst.Add(arr.GetValue(i).ToString())
Next i
For Each s As String In lst
Console.WriteLine(s)
Next
End Sub
End Class
' run:
'
' Sat
' Sun
' Mon
' Tue
' Wed
' Thu
' Fri
'