Class ptbyte
    Private _range() As Boolean
 
    Public Sub New(ByVal ArrayLength As Integer)
        Me.Resize(ArrayLength)
    End Sub
 
    Public Function Resize(ByVal NewSize As Integer) As Boolean
        If NewSize < 0 Then Return False
        Try
            Array.Resize(_range, NewSize)
            Return True
        Catch
            Return False
        End Try
    End Function
 
    Default Public Property Item(ByVal indexrange As Integer) As Boolean
        Get
            Return _range(indexrange)
        End Get
        Set(ByVal value As Boolean)
            _range(indexrange) = value
        End Set
    End Property
 
    Public Sub SetBools(ByVal ParamArray bools() As Boolean)
        _range = CType(bools.Clone, Boolean())
    End Sub
 
End Class

Dim bools As New ptbyte(8)
 
bools(0) = True
bools(1) = False
bools(2) = False
bools(3) = True
bools(4) = False
bools(5) = True
bools(6) = False
bools(7) = True
 
'Array wird verlängert
bools.Resize(10)
 
bools(8) = True
bools(9) = True
 
'Bools wird neu aufgebaut
bools.SetBools(True, False, True, False, True)