Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub