Parpadear el color de un command

[manzarinaa]

si el numero de veces que tiene que parpadear esta determinado sería algo asi como
Option Explicit
Dim i As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Command1.BackColor = vbRed
End Sub

Private Sub Timer1_Timer()

i = i + 1
If Command1.BackColor = vbRed Then
Command1.BackColor = vbBlue
Else
Command1.BackColor = vbRed
End If
If i = 3 Then
Timer1.Enabled = False
End If
End Sub