Make Animation in vb 6.0 Form

Place A timer in your Form and set the interval 200
DoubleClick timer object and write this code :

Private Sub Timer1_Timer()
Dim x, y
Dim Radius

x = 1000
y = 1000
For Radius = 700 To 0 Step -10
Circle (x, y), Radius, RGB(7&, Rnd * 205, Rnd * 105)
Next Radius
End Sub


DoubleClick Form and write this code :


Private Sub Form1_Click()
Timer1_Timer
end Sub