简单的VB进度条程序

利用label标签的backcolor使其width发生改变，进行简单的进度条走动

新建一个label标签和时钟控件双击时钟控件进入该代码界面

输入一下代码

Private Sub Timer1_Timer()
Label1.Width = Label1.Width + 100                'Label1控件的宽度加100
 If Label1.Width > 8295 Then                                '如果label1的宽度大于一定范围，
 Timer1.Enabled = False                                        '关闭时钟，停止运行
 End If                                                                        '结束判断

End Sub