by Pedro (4 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 19th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Cool effect when Unloading form!!! Check it out!
WindowState = 2 'Maximize the Form
DrawWidth = 4 'Increase the Draw Point Size
For i = 1 To 16000 'Length of Function
Down = Down + 1 'Speed of downwards increase
Across = Across + 1 'Speed of sideways increase
PSet (Rnd * Across, Rnd * Down), QBColor(Rnd * 15) 'Draw the Points
Next i 'Do it all again
End Sub