金箍棒变长

 

编程代码如下：

 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