ThreadPool 多工好幫手

留個記錄:

Imports System.Threading

Dim callBack As New WaitCallback(AddressOf ProcessDeviceDataThread)

ThreadPool.QueueUserWorkItem(callBack)

Private Sub ProcessDeviceDataThread(ByVal obj As Object)
While True
Threading.Thread.Sleep(10)
'do something or then exit
End While
End Sub