如何循环改变数组控件背景色
如何循环改变数组控件背景色
目前做的循环不正常
程序代码：Dim i As Integer Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 i = 0 End Sub Private Sub Timer1_Timer() Me.Shape1(i).BorderColor = &H80000002 Me.Shape1(i + 1).BorderColor = &HFF& i = i + 1 If i = Me.Shape1.UBound Then i = 0 End Su
Shape1.rar
(1.61 KB)
