by imtiyazul (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 29th August 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Colorful circles
VBcoders
dim x,y,radius,limit
scalemode=3
x=scalewidth/2
y=scaleheight/2
if x>y then limit=y else limit=x
for radius=0 to limit
circle(x,y),radius,rgb(rnd *255,rnd*245,rnd*124)
next radius
end sub
private sub form_load()
form1.backcolor=rgb(rnd *145,rnd*125,rnd*124)
end sub
