Colorful circles
Colorful circles
Rate Colorful circles
(1(1 Vote))
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
Colorful circles Comments
No comments yet — be the first to post one!
Post a Comment