Visual Basic - flash

como puedo realizar que un boton parpadee, o sea cambie de color en forma intermitente, y que el sistema no se paralice al estar dentro de un bucle, es decir poder realizar otras acciones mientras el boton parpadee

Cambiar el Style del Boton a Graphical
Añadir un Timer con un intervalo de 100

Sub parpadeo()
Dim numero As Integer
numero = Rnd * 15
Command1.BackColor = QBColor(numero)
End Sub

Private Sub Timer1_Timer()
parpadeo
End Sub