FoxPro/Visual FoxPro - Como paso los parametros desde un proc.=>BarProg

Saludos amigos:

Tengo un formulario que reorganiza los indices, y tengo una barra de progreso.
Bien, quisiera saber como paso los parametros desde el procedimiento a la barra de progreso "Olecontrol1" para que funcione cuando indexo.

El procedimiento es es siguiente:
use trabajajador excl
pack
inde on nombre to nombre
use datos excl
pack
inde on trabajador to trabajador
use datos excl
*******
****
use

Gracias.

Hola Juanma:

Si estas utilizando el Control ProgressBar, utilizarias el siguiente codigo:

*****
ThisForm.Olecontrol1.Max = 6
ThisForm.Olecontrol1.Value = 1
*
use trabajajador excl
ThisForm.Olecontrol1.Value = 1
pack
ThisForm.Olecontrol1.Value = 2
inde on nombre to nombre
ThisForm.Olecontrol1.Value = 3
use datos excl
ThisForm.Olecontrol1.Value = 4
pack
ThisForm.Olecontrol1.Value = 5
inde on trabajador to trabajador
ThisForm.Olecontrol1.Value = 6
.
.
.
Puedes mejorar ese codigo para que sea mas eficiente... por ejemplo metiendolo dentro de un ciclo...

Prueba y me cuentas

Saludos