进度条有关问题

dec ld_now, ld_step
long i
hpb_1.minposition = 1 
hpb_1.maxposition = 65535
ld_step = 65535 / 100000 //每执行一次for循环需要走动的进度数
for i = 1 to 100000
    ....
    ...
    ld_now += ld_step //进度增加
    hpb_1.position = round(ld_now, 0) //将进度反映到hpb控件中
next

------解决方案--------------------

MaxPosition进度条的最大值
当到达最大值的时候，就只会停留在最大值处。
实时响应控件进度显示的效果并不好，可以分几十次响应就够了