求解VB，字体颜色定时变化

单击“启动”按钮，标签的字体颜色开始循环变化，依次为：红橙黄绿...单击按钮，标签字体颜色停止变换

新建标准exe程序
在form1窗口上放一个 Label 控件，名字为默认的 label1
再放一个 Timer 控件，名字为默认的 Timer1,把 inv。。。默认为0的属性值改为 1000

双击timer1控件，在自动列出的代码内写
private sub timer1_timer()
label1 = “随便的文字内容”

select case label1.forcecolor

case vbred: label1.forcecolor＝&HFF6100
case &HFF6100: label1.forcecolor＝vbyellow
case vbyellow: label1.forcecolor＝vbgreen
case vbgreen: label1.forcecolor＝vbred
case else: label1.forcecolor＝vbred
end select

end sub