Imports System
Imports System.Collections.Generic
Public Class Test
Public Shared Sub Main()
Dim list As New List(Of DayOfWeek)()
list.Add(DayOfWeek.Sunday)
list.Add(DayOfWeek.Monday)
list.Add(DayOfWeek.Tuesday)
list.Add(DayOfWeek.Wednesday)
list.Add(DayOfWeek.Thursday)
list.Add(DayOfWeek.Friday)
list.Add(DayOfWeek.Saturday)
For Each value As DayOfWeek In list
Console.WriteLine(value)
Next
End Sub
End Class
' run:
'
' 0
' 1
' 2
' 3
' 4
' 5
' 6
'