BitArray Class manages a compact array of bit values, which are represented as Booleans
Imports System Imports System.Collections Public Class SamplesBitArray Public Shared Sub Main() Dim myBA1 As New BitArray(5) Console.WriteLine("Count: {0}", myBA1.Count) Console.WriteLine("Length: {0}", myBA1.Length) Console.WriteLine("Values:") PrintValues(myBA1) 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