Visual Basic : Yanıp Sönen Text

Gerekenler;
1 adet commandButon,1 adet timer,1 adet text

Kod:

Private Sub Command1_Click()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim c
c = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = c

End Sub