Program Tambahan Visual Basic Bagian 4

Program Tambahan Visual Basic Bagian 4 : Objek Warna Warni

Sekarang kita belajar bagaimana cara membuat sebuah objek menjadi berkelap kelip dan berwarna warni.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tadi.

NAME	CAPTION	TOOL
Label1	TULISAN INI KELAP KELIP	Label
Text1	-	TextBox
Timer1	-	Timer

3. Keterangan :
Untuk Timer1 Gantilah intervalnya menjadi 200.
 
4. Listing Program :

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Text1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

5. Anda bisa memilih apakah hanya beberapa objek ataukah semuanya yang dijadikan berkelap kelip warna warni.

 Hasil syntax yang kita buat