CLIGNOTEMENT D'UN LABEL

Dim contenu As String

Private Sub Form_Load()
'
' On démarre l'effet
'
contenu = Label1   ' on stocke le contenu du texte pour pouvoir le réafficher à nouveau
Timer1 = True      ' .. et on y va !!!
End Sub

Private Sub Timer1_Timer()
'
' On enleve le contenu de label1 ...
'

Label1 = ""      ' on vide label1
Timer1 = False   ' timer1 se désactive ...
Timer2 = True    ' ..et active timer2
End Sub

Private Sub Timer2_Timer()
'
' ... et on le remets
'

Label1 = contenu    ' C'est ici que l'on remet le contenu initial de label1
Timer2 = False      ' Timer2 se désactive ...
Timer1 = True       ' ... et active Timer1

End Sub 

Télécharger le zip