Copies BitArray to a compatible one-dimensional Array
Imports System Imports System.Collections Public Class SamplesBitArray Public Shared Sub Main() Dim myBA As New BitArray(4) myBA(0) = True myBA(1) = True myBA(2) = True myBA(3) = True Dim myBoolArray(7) As Boolean myBoolArray(0) = False myBoolArray(1) = False PrintValues(myBoolArray) myBA.CopyTo(myBoolArray, 3) PrintValues(myBoolArray) End Sub 'Main Public Shared Sub PrintValues(myArr As IEnumerable) Dim obj As [Object] For Each obj In myArr Console.Write("{0,8}", obj) Next obj End Sub End Class