Disegnare in una DrawingArea più punti con il mouse

Da Gambas-it.org - Wikipedia.

Per disegnare su una DrawingArea con il mouse due o più punti in modo tale che, i punti precedentemente disegnati, restino visibili sulla DrawingArea ad ogni disegno di un nuovo punto, potremo adottare un codice come il seguente:

Private StartX As Single   
Private StartY As Single   
Private punti As New Integer[] 

  
Public Sub DrawingArea1_Draw()   
  
 Dim i As Integer 
  
  With Draw
    .Foreground = Color.Red
    .Point(StartX, StartY)
    For i = 0 To punti.Count - 1 Step 2
      .Point(punti[i], punti[i + 1])
    Next           
    .End         
  End With       

End   
  
  
Public Sub DrawingArea1_MouseDown()     
  
  StartX = Mouse.X   
  StartY = Mouse.Y

  DrawingArea1.Refresh()

End


Public Sub DrawingArea1_MouseUp() 
  
  punti.Add(StartX) 
  punti.Add(StartY)

End