FoxPro/Visual FoxPro - Barra de porcentajes

Hola
Alguien tiene un ejemplo de como implementar una barra de porcentajes mientras se reindexa la base de datos?
Por favor no envien solo comentarios, necesito los codigos, ok'
Tengo una base de datos que la reindexo al ingresar usando REINDEX, pero, me gustaria que mientras lo haga muestre una barra de progreso.
Desde ya muchas gracias...

no lo he hecho al reindexar
solo en inxdex on ó copy to,append from me imagino debe servir

barra es una funcion
por lo tanto haces un archivo aparte llamado barra.prg que contenga lo siguiente

function mibarra
** codigo de tu barra
wait window at 30,30 nowait ltrim(str((recno()/reccount())* 100))+'procentaje delproceso'
return .t.
endfunc

para que funcione lo llamas asi

index on campo tag clave for Barra() ó
append from archivo for barra() ó
copy to archivo for barra() .

has la prueba pero solo te mando el mprocedimiento si quieres una barra bien hecha creala
en una clase y la llamas en el procedimiento asi de facil.