• Home
 · 
• Graphics
 · 
• This will draw randomly colored circles in the form!

This will draw randomly colored circles in the form!

This will draw randomly colored circles in the form!

Rate This will draw randomly colored circles in the form!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99) + 1) * Rnd
Circle (xPos, yPos), radius, RGB(red, blue, green)
End Sub


Private Sub Timer1_Timer()
'Form1.BackColor = &H0& 'these things look awsome if you want to use them.....
'Form1.WindowState = 2
Call drawcircle
End Sub