[VB6] Lampeggiamento di un messaggio con Timer

[tuono_2000]

ciao Luberto Mario

strano che eseguendo questi frammenti di codice "esegua" l'opposto.

rem visualizza attenzione
Private Sub AttivaAttenzione()
Attenzione.Visible=true
Attenzione = "ATTENZIONE!!!"
TimerAttenzione.Interval = 700
End Sub

rem nascondi attenzione
Private Sub DisattivaAttenzione()
TimerAttenzione.interval = 0
Attenzione.Visible = False
End Sub

rem disattiva attenzione
Private Sub DisattivaAttenzione()
TimerAttenzione.interval = 0
Attenzione.Visible = True
End Sub

potrebbe essere, come a me succede spesso,
che altri codici interferiscono con questo.

Fai attenzione a dove è inserito il comando,
magari viene rieseguito da qualche altra funzione.