暂停一个子例程，直到按下按钮？？VB.net

Imports System.Threading

Public Class Form1
    Dim resetEvent As New ManualResetEvent(False)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 触发信号，恢复子例程的执行
        resetEvent.Set()
    End Sub

    Sub SubRoutine()
        ' 暂停子例程的执行，直到收到信号
        resetEvent.WaitOne()

        ' 在此处编写需要暂停的代码
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 启动子例程
        Dim t As New Thread(AddressOf SubRoutine)
        t.Start()
    End Sub
End Class