[VB6]: Stop al lampeggio di una label

[vr-claudio]

Ciao ragazzi, arrivo subito al sodo, io ho questo codice che serve per fare lampeggiare
una label:

Private Sub Form_Load()
Timer1.Interval = 200End Sub
end sub

Private Sub Timer1_Timer()
Label1.Visible = Not (Label1.Visible)
End Sub

e fin qui tutto bene, ma io vorrei che al terzo lampeggio si stoppi il lampeggio, come posso fare?
grazie

[alka]

Aggiungi un contatore da inizializzare con il numero di lampeggi quando questa operazione ha inizio.

A ogni "commutazione", decrementi il contatore, e quando arrivi a zero non fai più nulla.

[Jonny96]

Puoi dichiarare una variabile di tipo integer e fargli aumentare di 1 il suo valore ogni volta che il timer scatta, e di conseguenza il label lampeggia. Poi, prima che il valore della variabile aumenti, fargli fare un controllo con

If variabile = 3 Then
Timer1.Enabled = False
End If

Così se il valore è uguale a 3 il timer smetterà di andare e anche il label smetterà di lampeggiare.

[vr-claudio]

Grazie mille a tutti, veramente!
Claudio