求助，毕业设计的一个小问题
提示: 作者被禁止或删除 内容自动屏蔽
Private Sub Command1_Click()
Dim t As Single, y As Single, p As Single
For t = 0 To 3000 Step 0.0002
doevents
y = -t + 3001
Select Case y
Case 1 To 1000
Shape1.FillColor = vbBlue
Case 1000.001 To 2000
Shape1.FillColor = vbRed
Case 2000.001 To 3001
Shape1.FillColor = vbYellow
End Select
Next t
End Sub