ciao Luberto Mario
strano che eseguendo questi frammenti di codice "esegua" l'opposto.
codice:
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.