Vb.net 在进度条运行时执行进程

我知道知识是昂贵的，但有谁愿意帮助我
我想在进度条运行时运行进程，
我尝试使用此代码

Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call Prcss()  
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If Progress.Value < 100 Then
        Progress.Value += 2
    ElseIf Progress.Value = 100 Then
        Timer1.Stop()
        Form1.Show()
        Me.Hide()
    End If
End Sub
Private Sub Prcss()
    With Progress
        .Value = 0
        Threading.Thread.Sleep(450)
        Label1.Text = "Renewing Custom Content"
        .Value = 20
        Threading.Thread.Sleep(450)
        Label1.Text = "Getting Information"
        .Value = 50
        Threading.Thread.Sleep(450)
        Label1.Text = "Downloading Udpdate"
        .Value = 70
        Threading.Thread.Sleep(450)
        Label1.Text = "Ready to Start"
        .Value = 100
    End With
End Sub

公共类表单2
私有子窗体2_Load（ByVal发送方作为对象，ByVal e作为System.EventArgs）处理Me.Load
调用Prcss（）
端接头
私有子Timer1_Tick（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理Timer1.Tick
如果进度值<100，则
进度值+=2
ElseIf Progress.Value=100然后
计时器1.Stop（）
表格1.Show（）
我躲起来
如果结束
端接头
私有子Prcss（）
有进展
.Value=0
线程。线程。睡眠（450）
标签1.Text=“更新自定义内容”
.Value=20
线程。线程。睡眠（450）
标签1.Text=“获取信息”
.Value=50
线程。线程。睡眠（450）
Label1.Text=“正在下载Udpdate”
.Value=70
线程。线程。睡眠（450）
Label1.Text=“准备开始”
.数值=100
以
端接头

我不知道我的错误在哪里，我在书中读到了这一点。

尝试使用a或a：

这是一个基本示例，要求您向表单中添加BackgroundWorker。您可以在此处看到帮助：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    For i As Integer = 1 To 1000
        BackgroundWorker1.ReportProgress(CInt(i / 10))
        Threading.Thread.Sleep(500)
    Next
End Sub

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    ProgressBar1.Value = e.ProgressPercentage
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    MessageBox.Show("Finished!")
End Sub