Clignoter un TextBox en VB ?

bjr voilà la syntaxe d'un label à l'aide d'un timer, veuillez tester slvp:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Animation.ForeColor = Color.Black Then
Animation.ForeColor = Color.Red
Dim f As New Font("Berlin Sans FB", 50, FontStyle.Bold)
Animation.Font = f
Me.BackColor = Color.Aqua
Label1.Width = Label1.Width + 10
Else
Animation.ForeColor = Color.Black
Dim f As New Font("Berlin Sans FB", 50)
Animation.Font = f
Me.BackColor = Color.Beige
Label1.Width = Label1.Width + 10
End If
End Sub

utilises un timer, et la propriété "couleur" (je n'ai pas le nom exact) de la textbox.

cela peut se faire de plusieurs manieres essentiellement par un code sur une base temps plus ou moins respectee selon les parametres