• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Cool effect when Unloading form!!! Check it out!

Cool effect when Unloading form!!! Check it out!

Cool effect when Unloading form!!! Check it out!

Rate Cool effect when Unloading form!!! Check it out!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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