我不知道你的按钮的作用是什么，但是下面的程序在点击按钮后会使Label1标签显示类似蓝色进度条，Label2显示百分比，你可以修改LabelWidth = 36 T中的36，以符合你的需要。
．首先，编写一个程序框架，如下所示。2．然后您可以在这里输入各种语句，如下所示。3．然后找到两个语句块的中间部分，如下图所示。4．输入语句［Exitsub］，如下所示。
用两个LABEL控件实现 一个默认背景，记作lblB，一个设置成蓝色，记做lblF。对齐摆放。lblF初始宽度为0。然后在程序里用pgb的进度来控制lblF的宽度，即lblF.Width = lblB.Width * n%。应该能实现你的想法。
首先，创建一个Timer控件和一个进度条控件。设置Timer1的InterVal属性值为：1000，ProgressBar1控件的Max属性为500。
首先需准备一个如下图样式的进度条图片（当然你可以做你自己喜欢的样式）。
在“部件”窗口中勾选Microsoft windows common controls 0或0。单击确定。然后控件工具箱中就有进度条了。
VB实现进度条的方法只需要5个步骤就可以。1．首先，编写一个程序框架，如下所示。2．然后您可以在这里输入各种语句，如下所示。3．然后找到两个语句块的中间部分，如下图所示。4．输入语句［Exitsub］，如下所示。
min：进度条的起始值。也就是取小值，如1。max：进度条的终止值。也就是最大值，如100 value：任务进展到哪个数，即进度条的填充值。如：50，即填满一平。visible：决定进度条是否可见。
在控件工具箱中右键=部件。在“部件”窗口中勾选Microsoft windows common controls 0或0。单击确定。然后控件工具箱中就有进度条了。
你可以这样解决：首先，创建一个Timer控件和一个进度条控件。设置Timer1的InterVal属性值为：1000，ProgressBar1控件的Max属性为500。
min：进度条 的最小值。也就是取小值，如1。max：进度条的最大值。也就是最大值，如100 visible：决定进度条是否可见。value是指进度条的进度值，这样，就能直观地显示进度。
这是我自己写的一个进度条控件，如图：边框粗细和边框颜色以及进度条颜色都可以调。进度条大小你可以自己拉伸。同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。
进度条的控件名字需要改一下。改成你的控件名。下面那位是把我的代码改成了默认的控件名而已。
在控件工具箱中右键=部件。在“部件”窗口中勾选Microsoft windows common controls 0或0。单击确定。然后控件工具箱中就有进度条了。
min：进度条的起始值。也就是取小值，如1。max：进度条的终止值。也就是最大值，如100 value：任务进展到哪个数，即进度条的填充值。如：50，即填满一平。visible：决定进度条是否可见。
实现原理 采用一个完整的图片来作为进度条，每次当进度条改变时，采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化，可实现制作任何复杂美观的进度条。
点击系统菜单“工具”－＞“选项”，调出选项对话匡后选择“控件”页，再选择ActiveX控件，选定列表栏里的Microsoft ProgressBar Control控件，一般里面有两个版本的，分别是V0(SP2)和v0。
这是我自己写的一个进度条控件，如图：边框粗细和边框颜色以及进度条颜色都可以调。进度条大小你可以自己拉伸。同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。