ProgressBar

Pones un timer.
En el vento time lo siguiente.
*******************************
nAncho = thisform.text1.width - 6

if thisform.label1.width <= nAncho
thisform.label1.width = thisform.label1.width + 2
else
thisform.timer1.enabled = .f.
thisform.label2.caption = "Listo"
endif
************************************************
obviamente los demas que ves en el codigo: text1,label1,label2

En las propiedades del timer, especificamente en interval, asignas un
valor, por ejemplo
50.

Ponele un color azul al label.
Fijate que el tamaño del label1 guarda relacion conel text1, el label debe
alcanzar el tamaño del text para terminar.
Obiamente deberas programar con que guarde relacion la barra de progreso.
espero que te sirba.

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa