Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class SamplesStringCollection
Public Shared Sub Main()
Dim myCol As New StringCollection()
Dim myArr() As [String] = {"RED", "orange", "yellow"}
myCol.AddRange(myArr)
PrintValues(myCol)
Dim myArr2(myCol.Count) As [String]
myCol.CopyTo(myArr2, 0)
Dim i As Integer
For i = 0 To myArr2.Length - 1
Console.WriteLine(" [{0}] {1}", i, myArr2(i))
Next i
End Sub 'Main
Public Shared Sub PrintValues(myCol As IEnumerable)
Dim obj As [Object]
For Each obj In myCol
Console.WriteLine(" {0}", obj)
Next obj
Console.WriteLine()
End Sub
End Class