Gradient BackColor Label

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	Timer	1	Interval	100
2.	Label	1	Caption	ARBI Blog's

Masukkan souce ini ke dalam 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 between 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