Programalama > VISUAL BASIC

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