就是用控件数组~~
比如建立了4个label1(1)-label1(4)的标签框~~
要它们的的forecolor连续替换~~比如是label1(1)的forecolor赋给label1(2)
就这样赋值~~到了label1(4)再赋值给label1(1)
!!!!
这样怎实现呢?

请各位指点指点!!!

太简单了吧。

应该加个中间变量吧
你的问题实际就是把a,b数值调换问题吧？

.....
指点指点一下!!!!

帮帮忙~~~

c是中间变量

想调换a和b
c=a
a=b
b=c

Option Explicit

Private Sub Timer1_Timer() Dim i As Integer Dim lastColor As OLE_COLOR lastColor = Label1(0).BackColor For i = 0 To Label1.Count - 2 Label1(i).BackColor = Label1(i + 1).BackColor Next Label1(i).BackColor = lastColor End Sub

在时间控件里面执行不就可以了，指定好interval属性的刷新时间