Membuat Animasi Bintang Dengan Visual Basic 6.0
Buat sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2 sbb :
Label1 dst... --> backstyle = 0-transparant
Caption = *
Font = arial black (size =48)
Disini saya menggunakan 12 label
Timer1 --> interval = 300
Timer1 --> interval = 300

Tampilan setelah kita jalankan
Berikut Listing Yang Kita Gunakan
Klik dua kali pada timer lalu masukkan listing dibawah ini:
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)
End Sub
Program ini dibuat oleh Heri Afrizal di bireuen
