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