ปิดทุกฟอร์มเมื่อไม่ใช้งานยกเว้นฟอร์มหลัก

[aek]

ผมต้องการปิดทุกฟอร์มที่userเปิดค้างไว้อัตโนมัติเมื่อไม่ได้ใช้งาน ให้เหลือไว้เฉพาะหน้าหลัก พอจะมีหลักการไหมครับเช่น จับเวลาเมื่อไม่มีการขยับเม้า ขอบคุณครับ

ผมลองหาโค้ดในเว็บมา แต่ก็ยังไม่รู้จะใช้งานอย่างไร
   Dim i As Integer
   Dim frm As Form
   Dim ar()
   i = 0
   For Each frm In Forms
        ReDim Preserve ar(i)
        ar(i) = frm.NAME
        i = i + 1
   Next
    For i = 0 To UBound(ar)
        If ar(i) <> Me.NAME Then DoCmd.Close acForm, ar(i)
    Next

[OddyWriter]

ไฟล์ตัวอย่างนะครับ ตั้งเวลาไว้ที่ 10 วินาที

[aek]

เยี่ยมไปเลยครับ หลักการนับเวลาใหม่ สุดยอด เดี๋ยวเอาไปปรับใช้งานครับ