FoxPro/Visual FoxPro - ayuda con el termometro

no se como hacer para que me aparesca el termometro o la barra progresiva de un proceso

la idea es que corro un proceso con do while y necesito que me aparezca en pantalla el termometro

Gracias por la ayuda que me pueda prestar

Reynaldo

oTerm=newobject("_thermometer", "_therm.vcx","","Mi Proceso")
oTerm.show
Selec Tabla
oTerm.iBasis=Reccount()
Locate

Do while MiCondicion
oTerm.update(recno(),"Registro No "+trans(recno())
***Codigo para la condicion y demas

enddo

oterm.complete

Prueba con algo asi, este codigo se usa como para recorrer cada registro de una tabla y actualizar el termometro, en este caso era mejor usar el SCAN...