[عبدالله الدوسري]

كود :

   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       Me.TextBox1.ForeColor = IIf(Me.TextBox1.ForeColor = Color.Red, Color.Yellow, Color.Red)
   End Sub