Event Countdown
or
In the VBA editor, for the form insert the following code:

CODE-------------------------------------------------------------------------------------------------------------------------

Private lastActivityTime As Date
Private Const inactivityTimeout As Integer = 10 ' Timeout value in minutes

Private Sub Form_Timer()
    ' Check if the form has had any activity
    If DateDiff("n", lastActivityTime, Now) > inactivityTimeout Then
        ' No activity for the specified timeout, close the database
        DoCmd.Quit acQuitSaveNone
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Update the last activity time when the form is clicked or the mouse is moved
    lastActivityTime = Now
End Sub

Private Sub Form_Load()
    ' Initialize the last activity time when the form is loaded
    lastActivityTime = Now
    Me.TimerInterval = 60000 * 10 ' Set the timer interval to 10 minutes (60000 milliseconds * 10)
End Sub

CODE END ---------------------------------------------------------------------------------------------------------------------
credit for this goes out to Brent Rinehart .

Hope this helps.

V/r
Juan

Set the Timer Interval to 1000.
Add a Text Box for minutes and a Text Box for seconds (add a third for the colon) - use the Default Value property.
Set Shape Fill and Shape Outline to Transparent.
Draw a Rectangle over the Text Boxes and give it a border and backcolor (Send To Back).

Thanks Kevin. It works fine.