Hi

Just for interest I created the following simple progress bar. I use it in my applications because I wanted something that was fast. I have used objects with Colored shapes that increase in size etc. but this is simple and available
to all my objects.

I even use it with "Append from" and "Copy To" commands to show the progress of time consuming operations. You suffer a performance hit in these commands but at least the user knows things are working.

#Define DC_PROGRESSBARLENGTH    75

Procedure ShowProgress
LParameter lcMsgTxt,;
           lnPercent

Local lnCurrentBarLen
lnCurrentBarLen=Int(DC_PROGRESSBARLENGTH*Min(1,lnPercent))

Set Message To "  Progress:"+Replicate(DC_PROGRESSBARCHARACTER,lnCurrentBarLen)+;
Replicate(" ",DC_PROGRESSBARLENGTH-lnCurrentBarLen)+"100%      "+lcMsgTxt
Return

Simon