by VisualScope (20 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 7th July 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This will draw randomly colored circles in the form!
VBcoders
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