FoxPro/Visual FoxPro - form que no se despliega

hola :
tengo este codigo para generar un bkp usando una dll.

loZip = CREATEOBJECT("XStandard.Zip")

loZip.Pack("d:\prueba\","d:\desarrollo\copia"+chrtran(TTOC(DATETIME()),"/:","_")+".zip")

loZip = NULL

si yo ejecuto este codigo en un prg me genera ok el archivo de backup con el contenido de la carpeta prueba .

lo que no puedo lograr es poner este codigo dentro de un form que contiene un objeto container con un gift animado que indica que se esta haciendo la copia .Probe de poner el codigo en el evento activate ,en el evento show ,cree un metodo en el form con este codigo y en el init puse :this.metodo ,pero lo que consigo es que me muestre el reloj del puntero del mouse que sale cuando se esta ejecutando algo y no que mientras dura el proceso dque genera el zip me muestre el formulario

me podrian ayudar ?

saludos

Saludos

Pon un Inkey(1) en el evento INIT para darle tiempo al formulario a 'dibujarse' en pantalla antes.

Como sea, lo más probable es que tu gif animado no se mueva durante el proceso.

Olle gracias me sirvio ami de una forma distinta pero me puso a pensar y logre desarrolar algo.