FoxPro/Visual FoxPro - Hacer barra de progreso

Saludos ;

Estoy interesado en saber como puedo HACER UNA BARRA DE PROGRESO en Visual Fox Pro 8 o ya sea en cualquier otra version.

Por favor si alguien me puede ayudar se lo agradeciera de antemanos.

Agradece su gentileza,
Juan Pablo

Inserta en tu form un ole control Microsoft progressbar Control.
Luego inserta un timer con interval 1000.
Dentrol del timer pon este codigo.

if thisform.olecontrol1.value<100
thisform.olecontrol1.value=thisform.olecontrol1.value+10
else
this.enabled=.f.
messagebox("Progreso terminado")
endif

esto me lo paso un amigo de aqui, asi puedes simular una barra de progreso.

Saludes