Try the following slight modification. It gives a fixed width progress bar.

#Define DC_PROGRESSBARLENGTH    75

Procedure ShowProgress
LParameter lcMsgTxt,;
           lnPercent

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

_VFP.STATUSBAR = "  Progress:  |" + REPLICATE( "I", lnCurrentBarLen ) + REPLICATE( ".", DC_PROGRESSBARLENGTH - lnCurrentBarLen ) + "|  " + lcMsgTxt

Return