VB6 Code - Membuat Label Yang Berkedip-kedip

Bagaimana cara membuat label yang berkedip-kedip, simak kodenya di bawah ini:

Private Sub Form_Load()
   Label1.Caption = "http://4basic-vb.blogspot.com"
   Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
   Label1.Visible = Not Label1.Visible
End Sub