MEMBUAT FORM DAN LABEL WARNA WARNI PADA VB.6.0

1.      Buka form1 dan buat tampilan seperti gambar dibawah ini dengan menggunakan control Label dan  2 buah timer ( Timer1 dan Timer2 ):

2.  ubah interval timernya masing – masing menjadi 100

3.  Klik ganda pada control Timer1 kemudian ketik kode program berikut :

Private Sub Timer1_Timer() form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) form1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub

4.  Klik ganda pada control Timer2 kemudian ketik kode program berikut :

Private Sub Timer2_Timer() Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub

 5.                

            Jalankan program dengan tekan star (F5) atau klik tanda  

 Coba lihat Hasilnya..........mantapkan hehehe....  jika sudah dipraktekan baca juga artikel terkait dengan artikel ini

co