Hypnotiser
Private Sub Form_Load()
Timer1.Interval=1
End Sub
Private Sub Timer1_Timer()
ScaleMode = 3 ´ Set scale To pixils
X = ScaleWidth / 2 ´ Set x position
Y = ScaleHeight / 2 ´set y position
If X > Y Then limit = Y Else limit = X
For radius = 0 To limit ´ Set radius
Circle ( X, Y), radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next radius
End Sub