Label Blink
Buat Form baru dengan sebuah Label dan sebuah Timer (Enabled=True; Interval=100).
Di bagian kontrol Timer-nya ketikkan :
Label1.Visible = Not Label1.Visible
Atau anda bisa ketikkan :
[ VB 6.0 ]
Randomize
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
[ VB .NET ]Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Randomize()
Label1.ForeColor = ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))
Label1.ForeColor = ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))
0 komentar: