Mega Code Archive
BitArray Class manages a compact array of bit values, which are represented as Booleans
<![CDATA[
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
]]>