VB如何让字体颜色自动有规律的变化？

下面的代码示例中，Label中的字体颜色有规律地依次变为红色、黄色和蓝色。

型号:form1，Timer1，Label1。

私有子窗体_Load()

定时器1。“间隔= 500”启动计时器，并将触发间隔设置为0.5秒

末端接头

私有子定时器1_Timer()

如果标注1。如果标签字体颜色为红色，则为“Forecolor = vbredthen”。

标签1。“Forecolor = vbyellow”变为黄色。

Else if标签1。Forecolor = vbyellowthen '如果是黄色。

Label1。“ForeColor = vbBlue”变为蓝色。

其他

Label1。‘ForeColor = VB red’如果是其他任何颜色，就会变成红色；从而实现红、黄、蓝的交替。

如果…就会结束

末端接头