[Resolvido]Fechar formulário automaticamente após tempo

Bom dia pessoal, sei que estou com outro tópico aberto, mas estou com este dúvida também.
eu estava lendo nos tópicos sobre o timer no formulário e li que fica meio lento se deixar um timer muito alto.
entao eu fiz assim, mas será fica muito pesado, pois quero colocar um comando que se a pessoa nao mexer no mouse dentro de 5 minutos (timer interval de 300.000) ele fecha o form.

Private Sub Form_Load()
Me.TimerInterval = 20000
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.TimerInterval = 20000
End Sub

Private Sub Form_Timer()
'comando a ser executado no timer.
End Sub

Coloque o timer em 1000 mesmo e coloque uma variável para contar os segundos. Quando der 300 segundos, o form se fecha. Se mexer no mouse, zera a variável.

Veja o Encerra se Inativo;

http://maximoaccess.forumeiros.com/t2195-encerra-banco-se-inativo-durante-10-minutos

Pessoal Muito Obrigado.... tópico resolvido....

Agradecemos pelo retorno. Boa sorte!