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