FoxPro/Visual FoxPro - Como utlizar el progressBar

Que tal amigos : Estoy intentando utilizar el OCX del ProgressBar pero no lo consigo e utilizado el siguiente codigo en el INIT y nada...
thisform.olecontrol1.value=0
Use DATA2
var=reccount()
I=1
GO TOP
DO WHILE !EOF()
Thisform.Olecontrol1.value = I * 100/var
Thisform.label.caption = STR( I * 100/var,6) + "%"
I = I+1
ENDDO
Alguien me podriar explicar un poco sobre el tema o tal vez me puedan enviar un formulario que utilize ello o la clase _Thermomether.
Desde ya agradezco a las personas que me ayuden...
Saludos,
Santiago

Amigo te envio el siguiente codigo :

** en el evento o proc. ‘INIT’ Pon este codigo : **
ThisForm.barra.Visible=.f.
thisform.barra.value=0

*** antes del ciclo del proceso para actualizar tus movimientos en este caso yo utilizo el ‘SCAN’ antes de esto pon este codigo ***
xCont = 0
thisform.barra.Visible=.t.
ThisForm.barra.VALue=0

*** ya que hayas reemplazado el primer valor de tu tabla pon el siguiente codigo (antes del ‘ENDSCAN’ ***
xCont = xCont + 1
thisform.barra.value = (xCont * 100) / _Tot

*** Ya que finalice el ciclo ‘SCAN’ Y ENDSACAN’ pon el siguiente codigo **

thisform.barra.VALUE=100

CHECALO..!

IMPORTANTE :
ESO ES TODO AVIZAME SI TE FUNCIONO PARA SEGUIRNOS AYUDANDONOS.

Nota : la barra de Progreso se llamara 'BARRA'

CHAOO..!

SE ME OLVIDO UNA PARTE DEL CODIGO ANTES DEL SCAN

xCont = 0
thisform.barra.Visible=.t.
ThisForm.barra.VALue=0
Select Vistaevalualumno2
_tot = RECCOUNT()

Checa que el Select es de mi Vista , tu pon el nombre que le hayas asignado..!! si te fijas la parte que se me olvido fue el : _tot = reccount()

chaoo.!!