Data Structure VB.Net

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", "RED", "green"}
      myCol.AddRange(myArr)
      PrintValues(myCol)
   End Sub 
   Public Shared Sub PrintValues(myCol As IEnumerable)
      Dim obj As [Object]
      For Each obj In  myCol
         Console.WriteLine("   {0}", obj)
      Next obj
   End Sub 
End Class