Hypnotiser

---

Looks pretty cool

Original Author: indolg

Inputs

1 timer named "Timer1"

Code

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 104 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.