hatalı yapılan girişlerde güzel bir vurgulama olarak kullanılabilinir veya birazcık görsellik katmak için...
hep sormak nereye kadar birazda katkımız olsun

Private Sub Form_Timer()
Dim x
x = Me.Etiket0.BackColor
Me.Etiket0.BackColor = Me.Etiket0.ForeColor
Me.Etiket0.ForeColor = x
End Sub