189 8069 5689
这是我自己写的一个进度条控件，如图：
成都创新互联公司是一家专业提供信丰企业网站建设,专注与成都网站设计、做网站、HTML5、小程序制作等业务。10年已为信丰众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
边框粗细和边框颜色以及进度条颜色都可以调。
进度条大小你可以自己拉伸。
同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。）
将边框粗细调为0即可实现无边框（同时边框闪烁效果（见“Flash”属性）也将关闭！）
进度值（见“ProgressValue”属性）类型为Single（单精度浮点数）
将我提供的DLL文件拖到工具箱即可安装
只能用于Windows窗体应用程序！
目标平台：.Net Framework 3.5
属性说明：
1.BorderColor 用于调整边框颜色
2.BorderWidth 用于调整边框粗细
3.Flash 用于开启、关闭边框闪烁效果
4.ProgressValue 用于设置、查看进度值
5.ForeColor 用于设置进度条颜色
6.BackColor 用于设置控件背景色
附件如果丢失，请私信。
在vb.net工具箱中 ProgressBar 控件图标。
ProgressBar 控件常用属性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。
Maximum、Minimum 属性：指ProgressBar 控件可变化的最大和最小值。
Step 属性：ProgressBar 控件调用 PerformStep 方法时候增长的步长。
Value 属性：ProgressBar 控件当前的位置值。
PerformStep 方法：按照 Step 属性的数量增加进度栏的当前位置。
Increment 方法：按指定的数量增加进度栏的当前位置。
ProgressBar 控件又称进度条控件，它是一个应用很广的控件，可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度，如果这样的过程中没有视觉提示，用户可能会认为应用程序不响应，通过在应用程序中使用 ProgressBar，可以告诉用户应用程序正在执行任务且仍在响应。
程序底部状态栏吧？
工具箱
-
菜单和工具栏
选项卡下
有个
StatusStrip
拖到窗体上就跑下面了
点击它，弹出菜单中
选择
ProgressBar
就指定
进度条在
状态栏上了。
你原来添加的PB可以删除了。
VB.Net中提供了ProgressBar控件，用于显示进度条
我建议你不要用进度条显示剩余时间而是显示执行进度
这样比较好控制
设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值
然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，
将进度显示在进度条上
比如,简单的例子:
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max
For i As Integer = Min To Max
'执行计算.......
Progress = i \ Max '计算进度
ProgressBar1.Value = Progress '显示进度
My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到，但是会严重降低运行速度
Next
这里的优化技巧是，可以设置为每隔N次循环才更新进度条
If Not Progress Mod N Then ProgressBar1.Value = Progress
不然进度条的更新也许比计算的速度还要慢很多
分析：
添加一个新窗体，设置属性.TopMost=True ,窗体显示在前面。
设置一下透明度增加效果。如果使用窗体闪烁，可以添加时间控件，
设置时间段变更窗体透明度来达到你想要的效果。