How to control the max thread number?

[gaxjyxq]

Please check my code, is it right?

Private Sub StartMultiThread()
For Each node As Node In nc
Do While runningThreadNumber >= threadNumber
Application.DoEvents()
Loop
checkThread = New Thread(AddressOf CheckItems)
checkThread.IsBackground = True
Thread.Sleep(10)
checkThread.Start
Next
End Sub
Private Sub CheckItems()
runningThreadNumber += 1

'Do something

runningThreadNumber -= 1
End Sub

Continue reading...