by Shariff (6 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 3rd June 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Makes many colors on your form pixel by pixel using a loop .
frmMain.DrawWidth = 4
Do
Xpos = Rnd * frmMain.ScaleWidth
Ypos = Rnd * frmMain.ScaleHeight
Color = Rnd * 15
PSet (Xpos, Ypos), QBColor(Color)
Counter = Counter + 1
Loop Until Counter >= 1000