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
Memuat foto
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

Komentar

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word