ต้องการตั้งเวลาเปลี่ยนform หลังจากไม่มีการใช้งาน มีวิธีไหนบ้างหรอ

Public Loops As Integer

Private Sub Form_Load()
 Me.TimerInterval = 1000
 Form_Timer
End Sub

Private Sub Form_Timer()

Static StartTime As Date

Dim SecondsToCount As Integer

SecondsToCount = 15 'Set this variable to the total number of seconds to count down

If Loops = 0 Then StartTime = Time
 
 Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
 Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
 Me.TimeLeft.Caption = "Form will close in " & Min & ":" & Format(Sec, "00")
 Loops = Loops + 1

 If Me.TimeLeft.Caption = "Form will close in 0:00" Then
   DoCmd.Close acForm, Me.Name
 End If

End Sub