郁闷啊,请问大侠们怎么实现用一个LABEL控件和一个时钟控件完成LABEL的背景颜色慢慢由红变深红达到一定程度再由慢慢由绿变成深绿,然后再慢慢由蓝变成深蓝,然后再由红变深红.....................................如此循环下去,靠,我弄了三天都没弄出来,真是没脾气,在这请教各位大侠了.在下感激啊,
下面是我编的一些代码但是不行,不知道哪里错了.

在timer中让背景颜色的值向上递加不就行了吗当颜色结束时，重新给变量值

不知道是不是你要的效果：

Option Explicit
Dim R As Integer, G As Integer, B As Integer
Dim Step As Integer

Private Sub Command1_Click()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Line1.X2 = Line1.X1
Timer1.Enabled = False
Command1.Caption = "Start"
End Sub

Private Sub Timer1_Timer()
If Step = 0 Then
Line1.BorderColor = vbRed
Line1.X2 = Line1.X1 + 3000 * (R / 255)
R = R + 1
G = 0
B = 0
If R = 255 Then
Step = 1
End If
ElseIf Step = 1 Then
Line1.BorderColor = vbGreen
Line1.X2 = Line1.X1 + 3000 * (G / 255)
R = 0
G = G + 1
B = 0
If G = 255 Then
Step = 2
End If
ElseIf Step = 2 Then
Line1.BorderColor = vbBlue
Line1.X2 = Line1.X1 + 3000 * (B / 255)
R = 0
G = 0
B = B + 1
If B = 255 Then
Step = 0
End If
End If
Label1.BackColor = RGB(R, G, B)
End Sub

呵呵，斑竹的gif用什么做的？？

是啊，谢谢了