如何在VB中并行运行3个subs，并等待全部3个subs完成后再继续运行

Imports System.Threading

Public Class ParallelExecutionExample
    Private Shared manualResetEvent As New ManualResetEvent(False)

    Public Shared Sub Main()
        ' 创建并启动三个线程
        Dim thread1 As New Thread(AddressOf Sub1)
        Dim thread2 As New Thread(AddressOf Sub2)
        Dim thread3 As New Thread(AddressOf Sub3)

        thread1.Start()
        thread2.Start()
        thread3.Start()

        ' 等待所有线程完成
        manualResetEvent.WaitOne()

        ' 所有线程完成后继续执行其他操作
        Console.WriteLine("所有subs已完成")
    End Sub

    Private Shared Sub Sub1()
        ' 执行Sub1的代码
        Console.WriteLine("Sub1执行完毕")
        manualResetEvent.Set() ' 标记Sub1已完成
    End Sub

    Private Shared Sub Sub2()
        ' 执行Sub2的代码
        Console.WriteLine("Sub2执行完毕")
        manualResetEvent.Set() ' 标记Sub2已完成
    End Sub

    Private Shared Sub Sub3()
        ' 执行Sub3的代码
        Console.WriteLine("Sub3执行完毕")
        manualResetEvent.Set() ' 标记Sub3已完成
    End Sub
End Class