Cara atau Codingan membuat text kedap kedip visual basic 6.0 (vb)

masukan component yang gambar jam beker dulu , lalu langsung masukan codingan berikut ini untuk membuat teks kedap kedip
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

label1 adalah teks yang ingin di buat kedap kedip