让我帮你拆解这两个VB.NET线程开发里的典型问题，一步步解决它们：

一、Declaration expected 错误（指向thread.Start()行） #

这个错误的根源很直接：你把thread.Start()这个可执行语句放在了类的直接作用域里，而不是某个方法（比如Sub或Function）内部。VB.NET不允许在类级别直接执行代码，所有需要运行的逻辑都必须包裹在方法体内。

错误示例 #

Public Class MyForm
    ' 线程声明是合法的
    Dim workerThread As New Thread(AddressOf MyWorkerSub)
    ' 这里直接调用Start()就会触发Declaration expected错误！
    workerThread.Start()
End Class

Private Sub MyWorkerSub()
    ' 线程执行的逻辑
End Sub

解决办法 #

把thread.Start()移到一个方法里，比如窗体的Load事件、按钮点击事件，或者你自定义的初始化方法中：

Public Class MyForm
    Dim workerThread As Thread

    Private Sub MyForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 在这里完成线程的声明与启动
        workerThread = New Thread(AddressOf MyWorkerSub)
        workerThread.Start()
    End Sub

    Private Sub MyWorkerSub()
        MessageBox.Show("线程正在运行！")
    End Sub

二、Sub中声明线程时的Overload error（重载不匹配） #

这个错误说明你给Thread构造函数传的参数不符合它的重载规则。VB.NET的Thread类主要有两种核心构造重载：

1. 接受ThreadStart委托：对应无参数的Sub
2. 接受ParameterizedThreadStart委托：对应仅带一个Object类型参数的Sub

如果你试图传递带多参数、或者参数类型非Object的Sub，就会触发重载不匹配错误。

错误示例1：目标Sub带非Object类型参数 #

Private Sub StartMyThread()
    ' 报错：找不到匹配的构造函数，因为MySubWithParam的参数是String
    Dim myThread As New Thread(AddressOf MySubWithParam)
End Sub

Private Sub MySubWithParam(message As String)
    ' 业务逻辑
End Sub

错误示例2：目标Sub带多个参数 #

Private Sub StartMyThread()
    ' 报错：没有支持多参数委托的Thread构造函数
    Dim myThread As New Thread(AddressOf MySubWithTwoParams)
End Sub

Private Sub MySubWithTwoParams(num As Integer, msg As String)
    ' 业务逻辑
End Sub

解决办法分场景处理 #

场景1：目标Sub无参数

直接使用ThreadStart委托（VB会自动推断，无需显式声明）：

Private Sub StartThreadWithoutParam()
    Dim myThread As New Thread(AddressOf MyNoParamSub)
    myThread.Start()
End Sub

Private Sub MyNoParamSub()
    MessageBox.Show("无参数线程运行中")
End Sub

场景2：目标Sub需要传递参数

方法A：使用ParameterizedThreadStart

注意参数必须是Object类型，在目标Sub里需要转换回你需要的类型：

Private Sub StartThreadWithParam()
    Dim myThread As New Thread(AddressOf MyParamSub)
    ' 启动时传递参数，这里传String类型
    myThread.Start("Hello from main thread!")
End Sub

Private Sub MyParamSub(param As Object)
    ' 转换参数到目标类型
    Dim message As String = CStr(param)
    MessageBox.Show(message)
End Sub

方法B：使用Lambda表达式（VB.NET 2010及以上版本支持）

这种方式更灵活，甚至可以传递多个参数：

Private Sub StartThreadWithLambda()
    Dim targetNum As Integer = 100
    Dim targetMsg As String = "计数完成！"
    
    ' 用lambda包装带多参数的Sub
    Dim myThread As New Thread(Sub()
                                  MyMultiParamSub(targetNum, targetMsg)
                              End Sub)
    myThread.Start()
End Sub

Private Sub MyMultiParamSub(count As Integer, msg As String)
    For i = 1 To count
        Thread.Sleep(50) ' 模拟耗时工作
    Next
    MessageBox.Show(msg)
End Sub

内容的提问来源于stack exchange，提问作者Ivan