Bueno, compruebenlo ustedes mismos. Ya se que no es un secreto pero aca lo dejo:
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 1000
Picture1.PSet (Random(5000), Random(3000))
Picture1.ForeColor = RGB(Random(255), Random(255), Random(255))
Picture1.DrawWidth = Random(10)
Next i
End Sub
Function Random(Max As Long)
Randomize Rnd
Tmp = Int((Max - 1 + 1) * Rnd) + 1
Random = Tmp
End Function