FoxPro/Visual FoxPro - Barra de Progreso

Saludos a todos;

Alguien me puede ayudar o decirme porque el siguiente error:

Tengo el siguiente codigo para una barra de progreso.

lcValorBarra = thisform.control.Value

"EN EL PROCEDIMIENTO TIMER"

IF THISFORM.OLEcontrol1.VALUE <=1000
THISFORM.OLecontrol1.VALUE = THISFORM.OLEcontrol1.VALUE + 5
ELSE
THISFORM.Enabled= .F.
ENDIF

EL CODIGO ESTA MUY BIEN PERO CUANDO TERMINA DE CORRER LA BARRA ME DA UN ERROR.

( OLE IDispatch exception code 0 from ProgCtrl: Invalid property value )

If thisform.olecontrol2.value<100
thisform.olecontrol2.value=thisform.olecontrol2.value+1
else
this.enabled=.f.
*messagebox("Progreso terminado")
Endif

yo lo hago asi amigo

Pero no te da el mismo error ????

Juan

El control activex alguna propiedad tiene un valor incorrecto. Yo te recomendaria usar barras nativas en VFP.
http://www.portalfox.com/index.php?name=News&file=article&sid=2066&mode=nested&order=0&thold=0

Plinio, tengo un problema cuando ejecuto el programa de una de las barra de progreso que elegi....

Ej:

La instruccion lo puse en el boton de Salvar...cuando le doy click el menu y la pantalla que tengo actualmente se minimiza todo..COMO PUEDO SOLUCIONAR ESTE PROBLEMA...

LO PONGO WINDOWTIPE = 2 PERO ME DA ERROR..

DIME MAS O MENOS QUE DOBO HACER PARA SOLUCIONAR ESTO.

JUAN