5 Saniye Arayla Yazının Rengi Değişsin
Gerekenler:1 adet label,1adet timer
*************************
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = “iSTEDİGİNİZİ YAZINIZ “
End Sub
Private Sub Timer1_Timer()
If Format(Now(), “s”) = 5 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 10 Then
Label1.ForeColor = &H80000012
End If
If Format(Now(), “s”) = 15 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 20 Then
Label1.ForeColor = &H80000012
End If
If Format(Now(), “s”) = 25 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 30 Then
Label1.ForeColor = &H80000012
End If
If Format(Now(), “s”) = 35 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 40 Then
Label1.ForeColor = &H80000012
End If
If Format(Now(), “s”) = 45 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 50 Then
Label1.ForeColor = &H80000012
End If
If Format(Now(), “s”) = 55 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 0 Then
Label1.ForeColor = &H80000012
End If
End Sub
*************************
