Data Structure VB.Net

Imports System
Imports System.Collections
Public Class SamplesBitArray
    Public Shared Sub Main()
        Dim myInts() As Integer = {6, 7, 8, 9, 10}
        Dim myBA5 As New BitArray(myInts)
        Console.WriteLine("myBA5")
        Console.WriteLine("   Count:    {0}", myBA5.Count)
        Console.WriteLine("   Length:   {0}", myBA5.Length)
        Console.WriteLine("   Values:")
        PrintValues(myBA5)
    End Sub 'Main
    Public Shared Sub PrintValues(myList As IEnumerable)
        Dim obj As [Object]
        For Each obj In  myList
             Console.WriteLine(obj)
        Next obj
    End Sub
End Class