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()
 
 With Me
   .Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
   .Arrangement = Arrange.Fill
 End With

 With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
   .Background = Color.White
 End With

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()

 If c == i Then 
   Inc c
   Return 
 Endif

 i = c

 Me.Title = i

End