Innanzitutto le mie scuse per il titolo strano del topic, ma non ho saputo fare di meglio.

Ho una picture box
Ho sopra la picture una image1 contenente una immagine

Tramite il codice sottostante, premendo sul tasto sinistro
del mouse, disegno un punto colorato rosso sulla immagine
contenuta in image1
Premendo poi con il tasto derstro del mouse, il punto si cancella.

Uso una image1 solo per poter ridimensionare la immagine con la
proprietà stretsch. Usando 2 picture non sarebbe possibile. Praticamente il punto rosso viene disegnato sulla picture (visible=false) ma appare per trasparenza sulla image.

codice:
Private Sub Form_Load()

  Image1.Left = 0
  Image1.Top = 0
  Image1.Width = Picture1.Width
  Image1.Height = Picture1.Height
 
End Sub

Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Flag As Boolean

  If Button = 1 And Flag = False Then     'tasto sinistro disegna un punto sul disegno
    Picture1.FillStyle = 0
    Picture1.FillColor = vbRed
    Picture1.Circle (X, Y), 75, vbRed
    Flag = True
  ElseIf Button = 2 And Flag = True Then  'tasto destro cancella il punto sul disegno'
    Picture1.Cls
    Flag = False
  End If

End Sub
Il mio quesito:

Come fare per far si che, quando il punto viene disegnato, lampeggi?
So che questo si ottiene con un timer. Ho provato con:
codice:
Timer1.enabled=true
Picture1.Circle (X, Y).picture.enabled=not Picture1.Circle.picture.enabled
ma la sintassi dell'ultimo rigo non é giusta, perché fa errore e non funziona il lampeggiamento.

come cambiare per far si che lampeggi?

grazie
pazienza