طلب مهم جدا جدا وبسرعة ياشباب........!

Public Class Form1

	Dim _color As Color = Color.Red

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Me.TextBox1.Text = 1000
		Me.Timer1.Interval = Me.TextBox1.Text
		Me.Timer1.Enabled = True
		Me.BackColor = Color.Yellow
	End Sub

	Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Me.BackColor = _color
		If _color = Color.Red Then
			_color = Color.Yellow
		Else
			_color = Color.Red
		End If
	End Sub
End Class