标题：[讨论]进度条的帮助好象不能实现？

   试了一下关于进度条的示例，发现如下代码并不能增加一万行，进度条也未显示进度，是否有错？
其码未看到增加行的代码是那一行。请大家再试一下吧。

示例

在表中增加一万行，在窗口中加入一个进度条和一个按钮，按钮的Click事件代码设为：

Dim p As WinForm.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