FoxPro/Visual FoxPro - Uso del Progresbar

Hola otra vez:

Quisiera saber como puedo usar un progresbar y de que forma lo asocio a un procedimiento determinado; por ejemplo al imprimir cierta información o al cargar ciertos datos que sean muchos.

Gracias a todos

Viene siendo algo asi:

select llegadas
go top
m.tamano=reccount()
if m.tamano>0
thisform.barra.visible=.T.
thisform.barra.min=1
thisform.barra.max=m.tamano
thisform.barra.value=1
do while not eof()
.............
toda la operatoria que necesites
...............
select llegadas
skip 1
m.contador=m.contador+1
thisform.barra.value=m.contador
loop
enddo

mas o menos es algo asi ...

Espero te sirva de ayuda ...