Apagar aplicacion

a ver si esto te sirve...

private blnCerrar as boolean

[...]

private sub Evento_Timer()
if Time=HoraCerrar then
blnCerrar=True
Unload Me
endif
En Sub

[...]

Private sub Query_Unload(cancel,etc...)
if not blnCerrar then
if PreguntaDeseaCerrar=vbNo
Cancel=true
endif
endif
End Sub

"Luis Fernadez" escribió en el mensaje
news:0ab801c355bb$6eb8b570$

Buenos dias.
Como puedo apagar una aplicacion cuando sea una hora
determinada.
En el timer tengo hecha la comprobacion de la hora, pero
luego como puedo apagarla? Si llamo al evento
Query_Unload, este realiza una pregunta. como puedo
decirle por defecto que si?
Si me la salto, la aplicacion no cierra bien.
Un saludo y muchas gracias.