Initialize BitArray from Integer array
Imports System Imports System.Collections Public Class SamplesBitArray Public Shared Sub Main() Dim myInts() As Integer = {6, 7, 8, 9, 10} Dim myBA5 As New BitArray(myInts) Console.WriteLine("myBA5") Console.WriteLine(" Count: {0}", myBA5.Count) Console.WriteLine(" Length: {0}", myBA5.Length) Console.WriteLine(" Values:") PrintValues(myBA5) 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