Dim testCollection As New Collection（）

Dim collectionItem As String

Dim loopCounter As Integer Dim enumCollection As Ienumerator

With testCollection

.Add（"1"）

.Add（"2"）

.Add（"3"）

End With

For Each collectionItem In testCollection

Console.Out.WriteLine（collectionItem）

Next

For loopCounter = 1 To testCollection.Count

Console.Out.WriteLine（testCollection.Item（loopCounter））

Next

enumCollection = testCollection.GetEnumerator（）

Do While enumCollection.MoveNext

Console.Out.WriteLine（enumCollection.Current）

Loop