主题：求助：进度条如何根据代码运行结果显示操作进度

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

代码1

p.Value = 10

代码2

p.Value = 20

......

上述代码是有点蓝老师在论坛提供的，经过测试，可以显示运行代码的进度，

但是是否可以改进一下，使得进度条在运行代码就开始显示进度条，在代码运行结束有结果后，并得到结果了再显示下一个进度数呢？