用VB画一组动态椭圆

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End Sub

Private Sub Form_Load()
AutoRedraw = True
Scale (0, 100)-(100, 0)
Timer1.Interval = 2500
End Sub

Private Sub Timer1_Timer()
Dim x0 As Integer, y0 As Integer
Dim x As Double, y As Double, spect As Double, r As Double, a As Integer
Randomize
a = Int(Rnd * 20 + 1)
spect = Rnd
r = a * Rnd
x = Int(Rnd * (100 - a - a)) + a
y = Int(Rnd * (100 - a - a)) + a
Circle (x, y), r, RGB(Rnd * 256, Rnd * 256, Rnd * 256), , , spect
End Sub

Dim arph