在VB的picture控件里面放置1000个shape控件，让这些控件的颜色渐变，老是闪，怎么避免
30毫米扫描一次，老是闪，有什么办法能让其不闪吗

dim a as Integer
Private Sub Timer1_Timer()'30毫米扫描一次
dim i as integer
a=a+1
For i = 0 To 1000
Shape1(i).FillColor = a
End If

Next i
end sub
更多 0