Disegnare in una DrawingArea una figura piana

Per disegnare in una DrawingArea una qualsiasi figura piana, si possono utilizzare almeno due modalità con la Classe Paint.

Uso dei Metodi ".MoveTo()" e ".LineTo()"

Public Sub DrawingArea1_Draw()

 With Paint
   .MoveTo(100, 200)
   .LineTo(200, 300)
   .LineTo(400, 200)
   .LineTo(100, 200)
   .Stroke
' Se si vuole ottenere una figura piana riempita di un colore, è necessario usare il Metodo ".Fill", anziché ".Stroke":
'  .Fill
   .End
 End With

End

Uso del Metodo ".PolyLine()"

Public Sub DrawingArea1_Draw()

 With Paint
    .Polyline([Point(100, 200), Point(200, 300), Point(400, 200), Point(100, 200)])
    .Stroke
' Se si vuole ottenere una figura piana riempita di un colore, è necessario usare il Metodo ".Fill", anziché ".Stroke":
'   .Fill
    .End
 End With

End