怎么准确设定进度条

如何准确设定进度条
一直没用过进度条这个控件
初步了解到可以统统设定max，min,value这几个值来控制
但这样让代码在计算的时候，value不断变化呢，是否用，timer控件
另外就是如何精确估计从开始到结束所用时间呢，代码总是在赋值运算，没有办法知道value值某一时刻到哪里了，还是搞个粗略的估算？

[解决办法]
你不能在 Timer事件里面用Do...Loop 这样一次就搞完了,你的Timer还有啥用呢?


Dim i%
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False
ProgressBar1.Min = 0: ProgressBar1.Max = 10
End Sub

Private Sub Form_Click()
i = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = i
i = i + 1
If i > 10 Then Timer1.Enabled = False: MsgBox "成功导入数据"
End Sub