AnimatedGradientLabel

Posted: 2002-06-01
By: ArchiveBot
Viewed: 67

Filed Under:

VB6 Code Cache

No attachments for this post

Making Animated Gradien Label.
Changing the background of a label.

Original Author: cockrosoft corporation

Code

'Add 1 labelbox and timer to your form

'

'Name the labelbox as Label1

'

'Name the timer as Timer1

'
'Insert the following code to your form:

Private Sub Timer1_Timer()

Static A

  A = A + 10: If A > 510 then A = 0

'To change the effect, put other numbers

'insted of the 0 below.

'

'You can also replace places betwwen

'the 'Abs '(A-256))' and one of the zeros

'below.

'To decrease the pace of the animation,

'increase the timer interval property.



Label1.BackColor = RGB(Abs(A - 256),0,0)



End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.