Public Class Level
        Public grid(0, 0) As Char
 
        Public Sub New(Optional dataupperbound0 As Integer = 9, _
                       Optional dataupperbound1 As Integer = 16)
 
            ReDim grid(dataupperbound0, dataupperbound1)
            Level1()
        End Sub
 
        Public Sub Level1()
            For y As Integer = 0 To grid.GetLength(0) - 1 Step 1
                For x As Integer = 0 To grid.GetLength(1) - 1 Step 1
                    grid(y, x) = "#"c
                Next
            Next
        End Sub
    End Class
 
 
    Public Class View
        Public layout(3, 3) As Char
        Public proof As Level = New Level()
 
        Dim _displayupperbound(1) As Integer
 
        Public Property DisplayUpperbound(ByVal dimension As Integer) As Integer
            Get
                Return _displayupperbound(dimension)
            End Get
            Set(value As Integer)
                If proof.grid.GetUpperBound(dimension) >= value Then
                    _displayupperbound(dimension) = value
                End If
            End Set
        End Property
 
 
        Public Sub Representation()
 
 
            For y As Integer = 0 To _displayupperbound(0)
                For x As Integer = 0 To _displayupperbound(1)
                    Console.Write(proof.grid(y, x))
                Next
                Console.WriteLine()
            Next
 
            'Console.WriteLine(proof.grid(7, 7) & " hier ")
        End Sub
    End Class
 
'Anwendung:
 Dim visual As New View
 visual.DisplayUpperbound(0) = 3
 visual.DisplayUpperbound(1) = 3
 visual.Representation()