Concentric Multicolored Circles

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Single, cc As Single
For i = 1 To 2000 Step 10
d = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Form1.Circle (X, Y), i, d
Next i


End Sub