如何使VB进度条始终运行

把进度条运行的语句放在DO循环里。

工程-部件 在里面选择Microsoft windows common controls 6.0，前面打上勾，确定 这样工具箱里出现一个进度条
属性Value是改变进度条的进度，可以在代码里调试
比如ProgressBar1.Value = ProgressBar1.Value + 1
这样进度条就增加一格

再说明白一点好吗？