Private Sub tmrTest_Timer()
Static fInt_Secs As Integer
Select Case fInt_Secs
Case 0
fInt_Secs = 15
Case 1
ExecuteTheCode
fInt_Secs = 15
Case Else
fInt_Secs = fInt_Secs - 1
End Select
lblRemaining.Caption = Str(fInt_Secs)
lblRemaining.Refresh
End Sub