Code:
Private Sub Form_Load()
    Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
    Static tTimer As Single
    
    If tTimer = 0 Then tTimer = Timer
    If (Timer - tTimer) > 300 Then Exit Sub
    Label1 = Format(DateAdd("s", 300 - (Timer - tTimer), Date), "nn:ss")
    
End Sub
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]