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

Popular posts from this blog

Cara Merangsang Klitoris Wanita

Membuat nomor urut secara otomatis pada database MySQL menggunakan php