主题：关于进度条的代码问题

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 Then
        p.Value = i '当前值为已经完成的行数
    End If
Next

上述代码是帮助里面的例子，是针对数据表形成的进度条，怎么改成执行代码的进度条，帮助里面好像没有