FoxPro/Visual FoxPro - Como usar 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

Hola :

Tengo un ejemplo para que le eches un ojo.
Tu dices.

Saludos.

Esta bien amigo, si no es mucho pedir podrias enviarme dicho ejemplo al correo que indico es de caracter urgente...

Gracias.

Esta bien amigo, si no es mucho pedir podrias enviarme dicho ejemplo al correo que indico es de caracter urgente...

Gracias.

Si te fijas ese codigo no mueve el puntero de la tabla, nuncas va a llegar al fin de archivo, tendras un ciclo infinito.

DO WHILE !EOF()
Thisform.Olecontrol1.value = I * 100/var
Thisform.label.caption = STR( I * 100/var,6) + "%"
I = I+1
ENDDO