Data Structure VB.Net

Imports System
Imports System.Collections
Public Class SamplesBitArray
    Public Shared Sub Main()
        Dim myBA2 As New BitArray(5, False)
        Console.WriteLine("Count:    {0}", myBA2.Count)
        Console.WriteLine("Length:   {0}", myBA2.Length)
        Console.WriteLine("Values:")
        PrintValues(myBA2)
    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