cerrar aplicación inactiva 30 minutos

Hola a todos,

Por la nueva ley de protección de datos, en mi empresa quieren que si la
aplicación esta inactiva 30 minutos, cerrarla.

No hago más que darle vueltas para hacerlo sin estar continuamente
guardando un registro de las telcas pulsadas.

Alguién me podria dar alguna idea de como hacerlo.
Gracias anticipadas.
Miguel Moreno

1)form1.keypreview=true
2)Pon un control timer con un intervalo de 1 minuto.
3)
Private Sub Form_KeyPress(KeyAscii As Integer)
Conteo=0
End Sub
4)
Private Sub Timer1_Timer()
conteo=conteo+1
if conteo0 then
' si llega a los 30 minutos entonces cierra.
end ' byebye ^_^
end if
End Sub

"Miguel" escribió en el mensaje
news:

Hola a todos,

Por la nueva ley de protección de datos, en mi empresa quieren que si la
aplicación esta inactiva 30 minutos, cerrarla.

No hago más que darle vueltas para hacerlo sin estar continuamente
guardando un registro de las telcas pulsadas.

Alguién me podria dar alguna idea de como hacerlo.
Gracias anticipadas.
Miguel Moreno

1)form1.keypreview=true
2)Pon un control timer con un intervalo de 1 minuto.
3)
Private Sub Form_KeyPress(KeyAscii As Integer)
Conteo=0
End Sub
4)
Private Sub Timer1_Timer()
conteo=conteo+1
if conteo0 then
' si llega a los 30 minutos entonces cierra.
end ' byebye ^_^
end if
End Sub

"Miguel" escribió en el mensaje
news:

Hola a todos,

Por la nueva ley de protección de datos, en mi empresa quieren que si la
aplicación esta inactiva 30 minutos, cerrarla.

No hago más que darle vueltas para hacerlo sin estar continuamente
guardando un registro de las telcas pulsadas.

Alguién me podria dar alguna idea de como hacerlo.
Gracias anticipadas.
Miguel Moreno