• Home
 · 
• Jokes/Humor
 · 
• Hypnotiser

Hypnotiser

Looks pretty cool

Inputs
1 timer named "Timer1"

Rate Hypnotiser

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

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