Module Module1

    Sub Main()

        Dim c1, c2 As Canvas
        Dim h, v, l1, l2, l3, l4 As Line
        Dim origin As Point = New Point(0, 0)

        c1 = New Canvas(20, 20, ".")
        c2 = New Canvas(20, 20, " ")

        h = New Line(origin, New Point(0, 19), "H")
        v = New Line(origin, New Point(19, 0), "V")
        l1 = New Line(origin, New Point(2, 19), "1")
        l2 = New Line(origin, New Point(19, 3), "2")
        l3 = New Line(New Point(2, 19), New Point(19, 2), "3")
        l4 = New Line(New Point(3, 8), New Point(8, 3), "4")

        h.draw(c1)
        v.draw(c1)
        l3.draw(c1)

        l1.draw(c2)
        l2.draw(c2)
        l3.draw(c2)
        l4.draw(c2)

        c1.display()
        c2.display()
        Console.ReadLine()
    End Sub

End Module