Public Class Polygon

    Private points As Point()
    Private color As Char

    Public Sub New(ByVal p1 As Point, ByVal p2 As Point, ByVal p3 As Point, ByVal c As Char)

    End Sub

    Public Sub addPoint(ByVal p As Point)

    End Sub

    Public Sub draw(ByVal c As Canvas)

    End Sub
End Class