VB.Net中提供了ProgressBar控件，用于显示进度条
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都做网站、成都网站设计、望江网络推广、小程序设计、望江网络营销、望江企业策划、望江品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供望江建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值
然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，
将进度显示在进度条上
该实例有很多实现方法,下面介绍一种不同的给你:
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 500
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
ProgressBar1.Minimum = 0
End Sub
'上述过程是设置控件的初始值,也可以在属性面板设置
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 100) Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
'timer1用来控制进度的增加
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value -= 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 0) Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
'time2用来控制进度的减少
End Class
有不是多线程的，.NET有一个异步控件来完成这个事情，BackgroundWorker。
多线程其实比你想象的简单，你计划操作步骤，打比方说我们处理一个文件，用进度条来显示进度。我们可以定义解压他进度为5%，解密文件后哦进度完成20%，读取数据后进度完成30%，重新整理插入数据后进度完成60%，再加密，进度为80%，再压缩进度为90%，再发送进度为95%，删除历史记录结束动作进度为100%。这种事就要多线程去完成，调用控件你就需要委托或者回调控件。
进度条给他赋值就好了，程序运行后你会发现进度条在动。
这是现在90%程序进度条原理。
