FoxPro/Visual FoxPro - crear barra de avance

hola, quiero saber como incluir o crear una barra de avance, para cuando indexo tablas, o proceso algun reporte, se que viene un vcx en las ayudas de vfp pero no le entiendo como editar el codigo para lo que busco, espero alguien me diga como se maneja, gracias

Cuando resuelvan el problema de portalfox puedes buscar un conjunto de barras de desplazamientos hechas en Fox.

http://www.portalfox.com/article.php?sid=2066

Plinio el portal esta abajo pero se puede entrar al foro y quizas alguien por ahi tenga ese ejemplito

http://support.microsoft.com/newsgroups/default.aspx?ICP=GSS3&NewsGroup=microsoft.public.es.vfoxpro&SLCID=ES&sd=GN&id=fh;ES-ES;NEWSGROUPS


Suerte

Te envio un ejemplo de como podrias utilizar la clase termometro de una manera muy sencilla

Suerte

loTherm = NewObject("tHermometEr","LIBS/Termometro","","Clientes"+str(RECCOUNT()))
WITH loTherm
.Show()
FOR i = 1 TO spnDuration
lnPercent = m.i/spnDuration*100
.Update(lnPercent," "+cli.cc_num)
lnSeconds = SECONDS()*10
DO WHILE lnSeconds+1>SECONDS()*10
ENDDO
pack
DELETE TAG ALL
INDEX ON CC_NUM+CC_FIL TAG CLI010 OF (ICLI010)
INDEX ON CC_RAZO+CC_NUM+CC_FIL TAG CLI010A OF (ICLI010)
INDEX ON CC_PROV+CC_NUM+CC_FIL TAG CLI010B OF (ICLI010)
ENDFOR
.Complete()
ENDWITH
SELECT cli
SET ORDER TO 1


Suerte

Carlos :
Si necesitas otro ejemplo te lo puedo enviar