Mira en realidad yo los colores parpadeantes los hago con un timer. Por ejemplo: Colocas una etiqueta (label1) y un timer con interval = 100, uno de los dos bloques de códigos mostrados abajo:
1ER BLOQUE
Private Sub Timer1_Timer()
'Parpadeo de 2 colores Amarillo, Azul
If Label1.ForeColor = vbYellow Then
Label1.ForeColor = vbBlue
Else
Label1.ForeColor = vbYellow
End If
2DO BLOQUE
Private Sub Timer1_Timer()
'Parpadeo de 3 ó más colores Amarillo, Azul, Rojo
Select Case Label1.ForeColor:
Case vbYellow:
Label1.ForeColor = vbBlue
Case vbBlue:
Label1.ForeColor = vbRed
Case vbRed:
Label1.ForeColor = vbYellow
Case Else:
'Esta opción es para que la 1era vez asuma el color amarillo
Label1.ForeColor = vbYellow
End Select
End Sub
A lo mejor no es exactamente lo que solicitastes pero espero te funcione..!
