Spray paint all over your form!

by Neggster (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2^nd August 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Spray paint all over your form!



Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Me.CurrentX
Y = Me.CurrentY
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End If
End Sub

Download this snippet Add to My Saved Code

Spray paint all over your form! Comments

No comments have been posted about Spray paint all over your form!. Why not be the first to post a comment about Spray paint all over your form!.

Spray paint all over your form!

Spray paint all over your form! Comments

Post your comment

Difficulty