Private?Sub?Form_Load()
Timer1.Enabled?=?True
Timer2.Enabled?=?True
Timer3.Enabled?=?False
End?Sub
Private?Sub?Timer1_Timer()
For?i?=?0?To?3
Label1(i).Caption?=?Label1(i).Caption?-?1
If?Label1(i).Caption?=?-1?Then?Label1(i).Caption?=?60
Next
End?Sub
Private?Sub?Timer2_Timer()
If?Label1(1).Caption?>?3?Then
Shape1.FillColor?=?vbGreen
Shape3.FillColor?=?vbGreen
Else
Shape1.FillColor?=?&H80FF&
Shape3.FillColor?=?&H80FF&
End?If
Shape2.FillColor?=?vbRed
Shape4.FillColor?=?vbRed
If?Label1(0).Caption?=?0?Then?Timer3.Enabled?=?True:?Timer2.Enabled?=?False
End?Sub
Private?Sub?Timer3_Timer()
If?Label1(0).Caption?>?3?Then
Shape2.FillColor?=?vbGreen
Shape4.FillColor?=?vbGreen
Else
Shape2.FillColor?=?&H80FF&
Shape4.FillColor?=?&H80FF&
End?If
Shape1.FillColor?=?vbRed
Shape3.FillColor?=?vbRed
If?Label1(0).Caption?=?0?Then?Timer2.Enabled?=?True:?Timer3.Enabled?=?False
End?Sub