Dim red As Integer
Dim green As Integer
Dim blue As Integer
Private Sub Form_Click()
End
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Dim i As Integer
Do Until i = 1000
i = i + 1
x = Rnd * ScaleWidth
y = Rnd * ScaleWidth
PSet (x, y), RGB(red, green, blue)
Loop
End Sub
Private Sub Timer2_Timer()
Form1.Cls
red = 255 * Rnd
green = 255 * Rnd
blue = 255 * Rnd
Timer1.Enabled = True
End Sub
