En VB, las fuentes cambian de color aleatoriamente

Subtemporizador privado1_Timer()

Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

El atributo de intervalo del temporizador está establecido en 1000

Utilizo el texto de la etiqueta para hacerlo

Si es texto, es text1.forecolor jaja

Otros y así sucesivamente