Private Sub Form_Click()
For x = 0 To 5000
    For y = 0 To 5000
        Randomize
        r = Rnd
        If r > 0.5 Then Form1.PSet (x, y)
 
        DoEvents
    Next
Next
End Sub
 
Private Sub Form_Load()
Form1.Width = 5000
Form1.Height = 5000
End Sub

LG,Robert