Membuat Animasi Bintang

Gambar animasi sering digunakan orang untuk memperindah tampilan, pada form vb kita juga bisa memperindah tampilan dengan animasi. Berikut saya berikan contoh animasi pada vb

Buat sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2 sbb :
Form --> backcolor = pilih warna hitam, borderstyle = 0-none, windowstate = 2-maximized.
Label1 dst... --> backstyle = 0-transparant, caption = l , font = webdings (size = 72), disini saya menggunakan 35 label (name = label1 s/d label35).
Timer1 --> interval = 100.

untuk source kodenya sbb:
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label12.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label23.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Posted in: visual basic