by charlynda (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th May 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code prints random dots on the form.
f = f+1
do until f= 10
a=rnd *255
b=rnd * 255
c=rnd*255
d= rnd*scalewidth
e =rnd * scaleheight
pset (d,e),rgb(a,b,c)
loop
end sub