Memberi warna acak pada label

Random Coloured label, this trick will change your label each sec.
Buat sebuah form dengan 1 timer dan 1 label didalamnya.


Private Sub Timer1_Timer()
randomize()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub