• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 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.

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
• 2
• 3
• 4
• 5

(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