装修问答

Rnd() * 255.BackColor = RGB(Rnd() * 255.Interval = 100
End Sub
Private Sub Timer1_Timer()
MePrivate Sub Form_Load()
Timer1

用个Timer空间控制颜色就行了

Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Form1.BackColor = QBColor(Int(Rnd * 15) + 1)
End Sub

颜色渐变，不是定时变换颜色
用个渐变的背景图片就行了啊

Rnd() * 255.BackColor = RGB(Rnd() * 255.Interval = 100
End Sub
Private Sub Timer1_Timer()
MePrivate Sub Form_Load()
Timer1