Question

怎样用TIMER控件让我设置的label里面的字体颜色闪烁啊！

我需要在5秒内他在5种颜色里面快速的变换
五秒后它会自己跳转（我已经设置了！）
只需要在五秒内快速变化颜色！谢谢

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Randomize
Static i As Integer
i = i + 1
Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
If i = 5 Then Timer1.Enabled = False
End Sub