Imports System
Imports System.Collections.Specialized
Public Class SamplesStringEnumerator
Public Shared Sub Main()
Dim myCol As New StringCollection()
Dim myArr() As [String] = {"red", "orange", "yellow"}
myCol.AddRange(myArr)
Dim myEnumerator As StringEnumerator = myCol.GetEnumerator()
While myEnumerator.MoveNext()
Console.WriteLine("{0}", myEnumerator.Current)
End While
myEnumerator.Reset()
If myEnumerator.MoveNext() Then
Console.WriteLine("The first element is {0}.", myEnumerator.Current)
End If
End Sub
End Class