Initialize BitArray from Boolean value array
Imports System Imports System.Collections Public Class SamplesBitArray Public Shared Sub Main() Dim myBools() As Boolean = {True, False, True, True, False} Dim myBA4 As New BitArray(myBools) Console.WriteLine("Count: {0}", myBA4.Count) Console.WriteLine("Length: {0}", myBA4.Length) Console.WriteLine("Values:") PrintValues(myBA4) 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