Rodolfo:
Podrias generar los índices con una UDF y de ahí poder crear un porcentaje de progreso un base al registro actual, pero sería muy lento y estas creando en definitiva claves no recomendables.

Si lo que queres es darle al usuario una idea de los que se esta procesando cuando generas los índices, en vez de una progress bar, podrias capturar los mensajes que VFP despliega en la status bar, estos mensajes los podes redireccionar y de esta manera no tenes algo tan bueno del punto de vista cosmético, pero le das a los usuarios un estado del trabajo sin perder performance.
Te paso un ejemplo, espero que te sirva

USE Clientes EXCLUSIVE
lcString = LTRIM(STR(RECCOUNT())) + " " + ALIAS()

DEFINE WINDOW lwProgress FROM 2,2 TO 10,70 ;
	FLOAT DOUBLE FONT "Ms Sans Serif",8 ;
	TITLE "Registros a indexar: " + lcString

SET ODOMETER TO 10
SET TALK ON
SET TALK WINDOW lwProgress
SHOW WINDOW lwProgress

INDEX ON codigo TAG codigo

RELEASE WINDOW lwProgress
SET ODOMETER TO
SET TALK WINDOW
SET TALK OFF

Ricardo._

>Hola a Todos los miembros de Visual FoxPr en Español ,
>
>
>Estoy creando un formulario donde quiero generar indices a las bases de datos del sistema, he logrado conseguir un Progress Bar pero no logro conseguir lo que quiero
>
>Esta barra de progreso se ejecuta teniendo como parametro el Recno()
>en mi caso no conozco alguna funcion o comando que pueda usarlo con el comando Index .
>
>La idea es :
>
>use orders excl
>pack
>index on num_invoice tag facturas
>Mostrar Progress Bar con el Avance
>index on cod_cliente tag clientes
>Mostrar Progress Bar con el Avance
>
>No se si tu tienes alguna clase que permita realizar esto .
>
>De antemano muchas gracias por su ayuda .
>
>Saludos
>
>
>Rodolfo