by Steven Bailey (10 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 14th April 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Decorates the screen with exploding crazy circles, this would be great for a screensaver.
VBcoders
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
No comments have been posted about Decorates the screen with exploding crazy circles, this would be great for a screensaver.. Why not be the first to post a comment about Decorates the screen with exploding crazy circles, this would be great for a screensaver..