Public Class Level
Public grid(9, 16) As Char
  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) = "#"
         Next
        Next
   End Sub
End Class

Module Module1
Sub Main()
 
  Dim printgrid As New Level
  Dim proof(3, 3) As Integer
 
  printgrid.Level1()
 
  For y = 0 To proof.GetLength(0) - 1 Step 1
   For x = 0 To proof.GetLength(1) - 1 Step 1
    Console.Write(printgrid.grid(y, x))
   Next
   Console.WriteLine()
  Next
 
Console.WriteLine(" y=7 , x=7 : " & printgrid.grid(7, 7))
Console.ReadLine()
End Sub
End Module

Public Class View
 Public layout(3, 3) As Char
 Public proof As Level = New Level()
 Public Sub Representation()
 
 For y As Integer = 0 To layout.GetLength(0) - 1 Step 1
  For x As Integer = 0 To layout.GetLength(1) - 1 Step 1
   Console.Write(proof.grid(y, x))
  Next
  Console.WriteLine()
 Next
 
 Console.WriteLine(proof.grid(7, 7) & " hier ")
 End Sub
End Class

Dim printgrid As New Level
Dim visual As New View
printgrid.Level1()
visual.Representation()
Console.WriteLine(" y=7 , x=7 : " & printgrid.grid(7, 7))
Console.ReadLine()