¿Cómo puede VB hacer que el color de la fuente cambie de forma automática y regular?

En el siguiente ejemplo de código, el color de fuente en la etiqueta cambia a rojo, amarillo y azul regularmente.

Modelo: formulario1, Temporizador1, Etiqueta1.

Subform_Load privado()

Temporizador 1. "Interval = 500" inicia el temporizador y establece el intervalo de activación en 0,5 segundos

Conector final

Subtemporizador privado 1_Timer()

Si está marcado 1. Si el color de fuente de la etiqueta es rojo, entonces "Forecolor = vbredthen".

Etiqueta 1. "Forecolor = vbamarillo" se vuelve amarillo.

De lo contrario, si es etiqueta 1. Forecolor = vbamarilloentonces 'Si es amarillo.

Etiqueta1. "ForeColor=vbBlue" se vuelve azul.

Otro

Etiqueta1. ‘ForeColor = VB red’ si es cualquier otro color pasará a ser rojo; logrando así la alternancia de rojo, amarillo y azul.

Terminará si...

Finalizar conector