Decorates the screen with exploding crazy circles, this would be great for a screensaver.
Decorates the screen with exploding crazy circles, this would be great for a screensaver.
Rate Decorates the screen with exploding crazy circles, this would be great for a screensaver.
(1(1 Vote))
Author : Steven Bailey
Info : Creates a random point then explodes using circles
Example : Call crazy(myform)
Public Function Crazy(Form1 As Form)
Dim x As Integer
Dim y As Integer
Dim Radius As Integer
Dim Limit As Integer
'Lets the function randomize its positions
Randomize
'Changes the scalemode to pixels
ScaleMode = 3
'Randomises the positions for the circles
x = Format(Rnd * ScaleWidth, "00")
y = Format(Rnd * ScaleHeight, "00")
'Orginises the limits for the circles radiouses
If x > y Then Limit = y Else Limit = x
'This creates the circles
For Radius = 0 To Limit
Circle (x, y), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Function
Decorates the screen with exploding crazy circles, this would be great for a screensaver. Comments
No comments yet — be the first to post one!
Post a Comment