چشمک زدن برچسب

[y.saied]

سلام خسته نباشید
ساده ترین روش برای کدنویسی چشمک زدن یک برچسب چیه؟
ممنون

[parselearn]

منظورتون از برچسب Lable هست؟



Private Sub Form_Load()
Timer1.Interval = 500
End Sub
'--------------------
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub





Dim ins As Integer
'--------------------
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
'--------------------
Private Sub Timer1_Timer()
If ins = 0 Then
Label1.Visible = False
ins = 1
Else
Label1.Visible = True
ins = 0
End If
End Sub

[meisambandari]

Private Sub Timer1_Timer()
On Error Resume Next
If Label1.BackColor = vbRed Then
Label1.BackColor = vbGreen
Else
If Label1.BackColor = vbGreen Then
Label1.BackColor = vbRed
End If
End If
End Sub

[ali_habibi1384]

private sub timer1_timer()
if label1.forecolor=vbred then
label1.forecolor=vbblack
else:
label1.forecolor=vbred
end if
end sub

[مهران رسا]

Sub Timer_Timer()
Label1.Visible=Not(Label1.Visible=True)
End Sub