金箍棒变长

编程代码如下：

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = False

Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub