' este código funciona da seguinte maneira após 5 minutos de inatividade
' em seu programa o mesmo é encerrado, e se você voltar a usar o PC
' antes desse tempo nada acontece, estilo proteção de tela do windows
' quando o computador está ativo
no form insira o seguinte código
Dim contar as Integer
Private Sub Form_Load()
Contar = 1
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If contar = 5 Then ' o cinco indica o tempo de inatividade para encerrar o programa
end
Else
contar = contar + 1
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
contar = 1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
contar = 1
End Sub
veja se era isto que você queria
