主题：[求助]进度条代码

Forms("窗口2").Open() 

Dim p As WinForm.ProgressBar = Forms("窗口2").Controls("ProgressBar1")    

p.Maximum = CurrentTable.Rows.Count      '设置最大值

p.Minimum = 0      '设置最小值

p.Value = 0     '设置当前值

For i As Integer = CurrentTable.Rows.Count - 1 To 0 step -1

    CurrentTable.Rows(i).delete    '删除行

    p.Value = p.Value + 1           '当前值为已经完成的行数(进度条显示的进度)

    Application.Doevents

Next

Forms("窗口2").Close()