Imports System.Threading
Public Class frm_Sim_CalProgress
    Inherits System.Windows.Forms.Form
    Dim t1 As Thread
    Dim t2 As Thread
    Dim t3 As Thread

    Private Sub ButtonCalculation_Click(sender As Object, e As EventArgs) Handles ButtonCalculation.Click
        t1 = New Thread(AddressOf Me.GiveInfo)
        t1.Start()
        t2 = New Thread(AddressOf Me.GiveProcName)
        t2.Start()
        t3 = New Thread(AddressOf Me.Execute)
        t3.Start()
    End Sub

其中我把GiveInfo()、GiveProcName()、Execute()写在了一个模块里

Public Sub GiveInfo()
        frm_Sim_CalProgress.pnlCalE.Text = FloatToStrF(CurE, ffFixed, 10, 2)
        If CurE < MaxE Then
            frm_Sim_CalProgress.ProgressBarCalE.Value =
    frm_Sim_CalProgress.ProgressBarCalE.Maximum * (MaxE - CurE) / MaxE
        Else
            frm_Sim_CalProgress.ProgressBarCalE.Value = 0
        End If
    End Sub

    Public Sub GiveProcName()
        frm_Sim_CalProgress.pnlProcName.Text = ProcName
    End Sub

出现了错误