[VB_Coder]

السلام عليكم

- إستبدل كود الـTimer2 بهذا الكود :

كود :

Dim Now_Time As String
Dim First_Time As String
Dim Second_Time As String

Now_Time = Format$(Now, "hh:mm:ss")
First_Time = Format$(Text1.Text, "hh:mm:ss")
Second_Time = Format$(Text2.Text, "hh:mm:ss")

If Now_Time > First_Time Then
   Shape1.BackColor = &HFFFFFF
End If

If Now_Time >= Second_Time Then
   Shape1.BackColor = &HFF&
   Timer2.Enabled = False
   Exit Sub
End If

- تحياتي .