Cerrar automáticamente la aplicación
A veces es deseable que nuestra aplicación se cierre después de un periodo de tiempo predeterminado. Ejemplo: si utilizamos la aplicación para manejar una base de datos es recomendable cerrar la aplicación después de finalizar la sesión. Con este truco, la aplicación se cerrará automáticamente si se nos olvida hacerlo a nosotros. 
1º. Cree un proyecto nuevo y establezca la propiedad KeyPreview del formulario a True para que los eventos de teclado del formulario se ejecuten antes que los de los controles.

2º. Introduzca un control Timer y establezca la propiedad Interval a 1.

3º. Cree un módulo y establezca las siguientes variables públicas:

Public TiempoPausa, Inicio
Public TiempoExcesivo As Boolean

4º. Establezca el siguiente código en el formulario:

Private Sub ExcesivoTiempoEspera()
  
Do While Timer > Inicio + TiempoPausa
  
TiempoExcesivo = True
'Introduzca aquí su código para actualizar los cambios antes de que el formulario se cierre 
End 
Loop

End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)

Inicio = Timer 
End Sub

Private Sub Form_Load()

'Se establece el periodo de tiempo (en segundos) que transcurrirá sin que se realice ninguna acción sobre el formulario antes de que se cierre
TiempoPausa = 20
Inicio = Timer 
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Inicio = Timer 
End Sub


Private Sub Timer1_Timer()

ExcesivoTiempoEspera 
End Sub


De este modo, cuando transcurre un periodo de tiempo superior al establecido sin que se realice ningun acción con el mouse ni con el teclado, se cerrará el formulario. En el ejemplo se ha establecido un lapso de 20 segundos, pero en la práctica es conveniente que sea al menos de 15 minutos (900 seg). Si está ejecutando una aplicación de base de datos es conveniente que introduzca el código necesario para actualizar los cambios antes de que se cierre el formulario y evitar pérdida de datos.