FoxPro/Visual FoxPro - Simulando proceso

Hola.. buenas tardes tengan todos mis amigos...

saben tengo una duda... con relacion a un sistema que estoy elaborando.. se trata de que al salir del sistema... haga una serie de procesos... y mientras se realice esto poner un mensaje para que el usuario no se impaciente y piense que se inibio el equipo... como, donde y que puedo mostrar mientras se ejecutan todos los procesos al salir del sistema?

******* EVENTO CLICK DEL BOTON SALIR*****
Do empaca
do envia
do creafilexls
do email
delete inicio.txt && Evita que se ejecute 2 veces el sistema
delete creafilexls && borra archivo enviado por email.
Close all
Quit
******************

Procedure empaca
use tablax
pack
use tablax2
pack
return

procedure envia
envia un archivo de cierre diario a la impresora
Return

procedure creafilexls
en base a una tabla de datos genera un archivo de excel
para enviarlo por email
return

Procedure email
se envia el archivo creafilexls a
una direccion de correo electronico
Return

1000 gracias

******* EVENTO CLICK DEL BOTON SALIR*****
=MESSAGEBOX("Realizando empacado de archivos. Favor de Esperar",68,6000,"TituloVentana")
Do empaca
=MESSAGEBOX("Enviando archivos. Favor de Esperar",68,6000,"TituloVentana")
do envia
=MESSAGEBOX("Creando Hojas de Calculo. Favor de Esperar",68,6000,"TituloVentana")
do creafilexls
=MESSAGEBOX("Enviando correo . Favor de Esperar",68,6000,"TituloVentana")
do email
delete inicio.txt && Evita que se ejecute 2 veces el sistema
delete creafilexls && borra archivo enviado por email.
Close all
Quit
******************


prueba asi ..


suerte