自制进度条的设置方法:
在表单上分别加入容器控件（Container1）及标签控件（Label1）各一个。
容器控件属性设置如下：
BackColor=Rgb(255,255,255),SpecialEffect=1,Width=202
标签控件属性设置如下：
BackColor=Rgb(0,0,255)，Caption=""，Left=Container1.Left+1，Width=0，TOP=Container1.TOP+1,HEIGHT=Container1.HEIGHT-2
上述两控件的位置，随意放置；用布局工具栏调整容器及标签控件的前后位置，容器控件位置置后，标签控件位置置前。
具体代码如下：
IF THISFORM.LABEL1.WIDTH<=INT(I*200/NUM)
THISFORM.LABEL1.WIDTH=INT(I*200/NUM)
ELSE
THISFORM.LABEL1.WIDTH=0
ENDIF
说明：1、上述代码必须放在循环体内使用，具体放在那个事件中，根据需要而定。
2、I（I>0）为循环体的初始值，NUM为循环体的最大值
3、当数据记录处理接近100万时才能达到明显的效果。
4、具体细节自定，如百分比设置：80%
5、优点是简单易用，便于维护免去用VFP的ActiveX控件的诸多不便之处。
6、验证方法：
NUM=1000000
FOR I=1 TO NUM
IF THISFORM.LABEL1.WIDTH<=INT(I*200/NUM)
THISFORM.LABEL1.WIDTH=INT(I*200/NUM)
ELSE
THISFORM.LABEL1.WIDTH=0
ENDIF
ENDFOR
下面是运行后的效果图
