Search Tools Links Login

Sweet! Rainbow Paint


It's like that ad for "rainbow art" or whatever.

Original Author: Jon1346

Assumptions

What makes this code so cool? It's simple, and you can tweak it to ANY COLOR IMAGINABLE! All you need to do is change the rgb values!

Code

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static r 'r
r = r + 10: If r > 510 Then r = 0 'make it fade
For i = 0 To 200 '200 is brush tip size
Circle (X, Y), i, RGB(Abs(r - 250), 0, Abs(r - 6)) 'heart of fading- change the Red, Green, Blue to get different colors!
Next i 'make another circle
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 95 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.