你问的是vb.net读取数据库时假死不显示进度条怎么办吧，在循环代码中加一句DoEvents语句。
白云ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18980820575（备注：SSL证书合作）期待与您的合作！
根据微软公司的资料得知，这是一种bug，只要在循环代码中加一句DoEvents语句即可。
VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发。
同学。。你这里的写法其实根本没有用到多线程
原因很简单
你是定义了一个T的新线程，但是很可惜你在BeginDoSub这个独立的线程中又定义了一个deSomeSub的委托，并且直接用Me.Invoke把实际的执行任务提交给界面主线程运行了
所以你的图片的处理函数实际上是在主线程中运行的，新线程等于没用
正确的作法是，T定义为SomeSub这个函数为入口的线程，并启动它
在界面进度条更改的时候再使用Invoke来调用委托来进行界面更改。
自己再好好看看吧，时间问题我要走了。
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
不然进度条的更新也许比计算的速度还要慢很多
