VB Tulisan Kelap Kelip

Amati gambar berikut

Masukkan kode berikut :

Private Sub Timer1_Timer()

If Label1.Visible = True Then

Label1.Visible = False

Label2.Visible = True

Label3.Visible = False

ElseIf Label2.Visible = True Then

Label2.Visible = False

Label3.Visible = True

Label1.Visible = False

ElseIf Label3.Visible = True Then

Label3.Visible = False

Label1.Visible = True

Label2.Visible = False

End If

End Sub