Initialize BitArray from Byte array
Imports System Imports System.Collections Public Class SamplesBitArray Public Shared Sub Main() Dim myBytes() As Byte = {1, 2, 3, 4, 5} Dim myBA3 As New BitArray(myBytes) Console.WriteLine("Count: {0}", myBA3.Count) Console.WriteLine("Length: {0}", myBA3.Length) Console.WriteLine("Values:") PrintValues(myBA3) 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