SnowMC

Private Sub Form_Load()
Form1.Height = 9000
Form1.Width = 12000
Form1.WindowState = 2
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call Draw
End Sub

Sub Draw()
Do Until 1 = 2
Form1.PSet (Int(Rnd * Form1.Width), Int(Rnd * Form1.Height))
Loop
End Sub