Efeitos com label

Autor Assunto: label piscar

---------------------------------------------------------------------------------------

Private Sub Timer1_Timer()
If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True

End Sub

---------------------------------------------------------------------------------------

no timer defina o interval para 500

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

End Sub

---------------------------------------------------------------------------------------

Private Sub Timer1_Timer()
          If Label1.Visible Then
            Label1.Visible = False
          Else
            Label1.Visible = True
            End If

End Sub