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
不然进度条的更新也许比计算的速度还要慢很多
这是我自己写的一个进度条控件，如图：
边框粗细和边框颜色以及进度条颜色都可以调。
进度条大小你可以自己拉伸。
同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。）
将边框粗细调为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，可以告诉用户应用程序正在执行任务且仍在响应。
你问的是vb.net读取数据库时假死不显示进度条怎么办吧，在循环代码中加一句DoEvents语句。
根据微软公司的资料得知，这是一种bug，只要在循环代码中加一句DoEvents语句即可。
VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发。
