Code:
Sub BlinkLbl(lbl As Label)
    Do
        Start = Timer
        
        Do While Timer < Start + 0.25
        DoEvents
        Loop
        
        lbl.Visible = Not lbl.Visible
    Loop
End Sub

Private Sub Command1_Click()
    BlinkLbl Label1
End Sub