Cara Membuat Label Berkedip VB 6.0

Pada Tutorial VB kali ini adalah membahas Cara Membuat Label Berkedip pada VB 6.0

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