[سعود]

الفكرة سهلة وهي اضافة مؤقت وتجعل قيمة الانترفال 1 وتكتب كود يتحقق من الثانية now.date.second
مش متاكد املائيا

---

جرب المثال هذا

PHP كود :

Public Class Form1
    Dim colors As New List(Of Color)
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
        If Now.Second = 0 Then
            Me.BackColor = colors(Int(Rnd() * 2))
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        colors.Add(Color.Blue)
        colors.Add(Color.Green)
        colors.Add(Color.Red)
    End Sub
End Class 


---

هذا الكود المطلوب(حسب فهمي للطلب)

PHP كود :

Public Class Form1
    Dim colors As New List(Of Color)
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
        If Now.Second > 0 Then Timer2.Start()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()
        colors.Add(Color.Blue)
        colors.Add(Color.Green)
        colors.Add(Color.Red)
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Now.Second = 0 Then
            Me.BackColor = colors(Int(Rnd() * 2))
            Timer2.Stop()
        End If
    End Sub
End Class