Impedire in una DrawingArea che si esegua il codice presente nell'Evento " Draw()" , qualora sia sollevato arbitrariamente più di una volta

Come è noto, l'Evento "_Draw()" del Controllo DrawingArea viene sollevato all'inizio per tre volte.
Può essere sollevato arbitrariamente anche più di una volta, qualora venga sollecitato dal previsto codice nel prosieguo del programma.

Per impedire che, sollecitato dal codice l'Evento "_Draw()" della DrawingArea, sia eseguito più di una volta il codice fondamentale presente al suo interno, possiamo adottare il seguente stratagemma:

Private DrawingArea1 As DrawingArea
Private c As Integer
Private i As Integer


Public Sub _new()

 Me.Arrangement = Arrange.Fill

 DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"

End


Public Sub Form_Open()

 Me.Show

 Do
   Inc c
   Wait 0.3
   If Object.IsValid(DrawingArea1) Then
' Solleva l'Evento "DrawingArea1_Draw()":
     DrawingArea1.Refresh
   Else 
     Break
   Endif
 Loop

End


Public Sub DrawingArea1_Draw()

' Stratagemma:
 If c == i Then 
   Inc c
   Return 
 Endif

 i = c

' Codice considerato fondamentale:
 Dim n As Short
 inc n

' Dimostra nell'intestazione della finestra quante volte è stato eseguito il codice fondamentale quando è stato sollevato l'Evento "DrawingArea1_Draw()":
 Print "Sollevato l'Evento _Draw(): codice fondamentale elaborato \e[1m"; n; " \e[0mvolta"

 dec n

End