111,094
社区成员




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