by indolg (1 Submission)
Category: Jokes/Humor
Compatability: VB Script
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (4 Votes)
Looks pretty cool
Inputs
1 timer named "Timer1"
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