Visual Basic 6.0 5 Saniye Arayla Yazının Rengi Değişsin | 'RedsCoder

[/COLOR][COLOR=#FFFFFF]Private Sub Form_Load()[/COLOR]
 [COLOR=#FFFFFF]Timer1.Interval = 100[/COLOR]
 [COLOR=#FFFFFF]Label1.Caption = “iSTEDİGİNİZİ YAZINIZ “[/COLOR]
 [COLOR=#FFFFFF]End Sub[/COLOR]
 [COLOR=#FFFFFF]Private Sub Timer1_Timer()[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 5 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 10 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 15 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 20 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 25 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 30 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 35 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 40 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 45 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 50 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 55 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &HFF&[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]If Format(Now(), “s”) = 0 Then[/COLOR]
 [COLOR=#FFFFFF]Label1.ForeColor = &H80000012[/COLOR]
 [COLOR=#FFFFFF]End If[/COLOR]
 [COLOR=#FFFFFF]End Sub[/COLOR]
[COLOR=#FFFFFF]