主题：进度条

现在存盘速度这么快，搞这个好象没有必要。

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum =  DataTables.Count '设置最大值
p.Minimum = 0 '设置最小值
Dim i As Integer
For Each dt As datatable In DataTables
    dt.Save()
    i = i + 1
    p.Value = i '设置当前值
Next