Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim t As Thread
t = New Thread(AddressOf 长循环1)
t.Start()

Dim t2 As Thread
t2 = New Thread(AddressOf 长循环2)
t2.Start()
end sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ThreadPool.QueueUserWorkItem(AddressOf 长循环1)
        ThreadPool.QueueUserWorkItem(AddressOf 长循环2)
end sub