MEMBUAT ANIMASI GRADASI WARNA PADA LABEL

Untuk membuat label terlihat kedap kedip. Maka Pada form anda, tambahkan sebuah komponen label dan sebuat Timer. Pada Timer, set property interval menjadi 1. Selanjutnya isi form dengan kode sebagai berikut:

Private Sub Timer1_Timer()

Static A

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

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

End Sub

Maka hasilnya akan seperti gambar ini :