Clignotement d'un label dans un userform

Bonjour le forum

jai un code qui fonctionne pour faire clignoter un label mais comment le faire clignoter automatiquement à l'ouverture de l'userform Merci

Sub Clignote(nb, label)

n = 0

Do While n < nb

Me(label).Visible = Not Me(label).Visible

fin = Timer + 0.4

Do While Timer < fin: DoEvents: Loop

n = n + 1

Loop

End Sub

J'ai la réponse qui fonctionne Merci

Private Sub UserForm_Activate()

Dim MaTempo As String

MaTempo = Timer

Do

Do Until MaTempo + 1 <= Timer

DoEvents

Loop

If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True

MaTempo = Timer

Loop

End Sub