Module Module1
 
    Sub Main()
 
        Dim bools As New ptbyte()
 
        bools(0) = True
        bools(1) = False
        bools(2) = False
        bools(3) = True
        bools(4) = False
        bools(5) = True
        bools(6) = False
        bools(7) = True
 
    End Sub
 
    Class ptbyte
        Private range As Boolean() = New Boolean(4) {}
 
        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
    End Class
End Module