Membuat Background Form di VB 6.0 Berubah-ubah Warna

Selamat pagi teman-teman... Ini dia animasi lagi untuk Form. Dimana Form akan berubah warna secara acak. Yang tertarik silahkan buka VB 6.0 kamu dan Add Form baru. Di Form tersebut kamu tambah 2 Timer. Dimana Timer 1 untuk Properties Intervalnya dengan nilai 500 dan Timer 2 Intervalnya bernilai 1000. Tampilan Form akan seperti ini :

Klik dua kali pada Form sehingga kamu berada di Form Code. Copy-Paste code dibawah ini :

Private Sub Form_Load()
Timer2.Enabled = True
Randomize
PutraQincay.BackColor = Rnd(&H80000009)
End Sub

Private Sub Timer1_Timer()
PutraQincay.Visible = True
PutraQincay.Enabled = True
PutraQincay.BackColor = QBColor(Rnd * 1)
PutraQincay.BackColor = QBColor(Rnd + 2)
PutraQincay.BackColor = QBColor(Rnd + 3)
PutraQincay.BackColor = QBColor(Rnd + 4)
PutraQincay.BackColor = QBColor(Rnd + 5)
PutraQincay.BackColor = QBColor(Rnd + 6)
PutraQincay.BackColor = QBColor(Rnd + 7)
End Sub

Private Sub Timer2_Timer()
PutraQincay.Visible = True
PutraQincay.BackColor = QBColor(Rnd * 8)
End Sub

Sekarang coba kamu jalankan atau dengan menekan F5 dan kurang lebih tampilannya terlihat seperti :

Berhasilkan?... Seperti biasa, saya selalu mempunyai keburukan mengganti Nama Form dengan Nama PutraQincay. Maklum saya anak rantau yang selalu merindukan kampung halaman. Jadi Namanya silahkan teman-teman perbaiki ya!!!... Bagi yang belum tau cara merubah namanya cari saja di properties setelah itu Namenya diganti dan sesuaikan dengan selera kamu. Heee... dan bagi yang tidak mau susah-susah gunakan Name Standarnya : Form1.