Berikut langkahnya :
Buatlah Project VB 6.0 dengan menambahkan Timer dan Label pada Form1
Masukan Koding dibawah ini :
Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0
merah = Int(255 * Rnd)
hijau = Int(255 * Rnd)
biru = Int(255 * Rnd)
Label1.ForeColor = RGB(merah, hijau, biru)
If i Mod 2 = 0 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
Silahkan Run Project VB 6.0 anda
Salam,
BelajarVB.com