Public Class Canvas

    Public info As Char(,)

    Public Sub New(ByVal height As Integer, ByVal width As Integer, ByVal pen As Char)
        info = New Char(height, width) {}
        For i As Integer = 0 To height - 1
            For j As Integer = 0 To width - 1
                info(i, j) = pen
            Next
        Next
    End Sub

    Public Sub display()
        For i As Integer = 0 To info.GetUpperBound(0)
            For j As Integer = 0 To info.GetUpperBound(1)
                Console.Write(info(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub
End Class