主题：请教：事件代码中有若干个遍历过程，进度条代码该如何设置？

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
Dim dt = DataTables("表A")
Dim t = Tables("表A")
p.Minimum = 0
p.Maximum = dt.DataRows.count+t.Rows.count
p.Value = 0

For i As Integer = 0 To dt.datarows.count -1
    msgbox(1)
    p.value += 1
Next

For i As Integer = 0 To t.rows.count -1
    Dim r As Row = t.rows(i)
    msgbox(1)
    p.value += 1
Next