主题：[求助]执行代码总是等全部执行完毕才显示？

Dim p AsWinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
For i As integer = 0 To MainTable.Rows.Count - 1
    MainTable.Rows(i)("第一列") = i
    If i Mod 100 = 0
        p.Value = i '当前值为已经完成的行数
    End If
Next

上段代码在执行的时候会实时显示，为什么下一段的显示值不会变呢？

For i As integer = 0 To 100

     e.Form.Controls("Label").Text = i

     End If
Next

效果非常好，谢谢