membuat label bergradasi

dalam trik kali ini kita akan membuat sebuah label yg apabila dijalankan akan menghasilkan warna yg bergradasi, tujuan nya untuk mempercantik form itu sendiri.
Bagaimana cara membuatnya????? ohh ternyata sangat mudah, kita hanya perlu menggeser value kode warnanya.
OK langsung saja ke project nya saja :

kita ambil contoh sebuah form, sebuah label untuk objeknya dan komponen timer, kita ambil default namanya saja form1,label1 dan timer 1

pada komponen timer1 di dobel untuk masuk ke bagian kode, lalu tulis skrip dibawah ini :

Private Sub Timer1_Timer()
Static A
A = A + 10: If A > 500 Then A = 0
Label1.ForeColor = RGB(0, 0, Abs(A - 256))
End Sub

selamat mencoba, happy coding :)