1 显示进度条
先弄一个label标签，capation属性设为空白，背景色设为深蓝色
然后弄一个timer控件,同时时间间隔为（Interval）：100
Private Sub Timer1_Timer()
Label1.Width = Label1.Width + 20
End Sub
VB随笔2,布布扣,bubuko.com
VB随笔2
原文：http://www.cnblogs.com/jsnoway/p/3712848.html
