ThreadPool 多執行緒

看到這個code不錯,記錄下來;待有空再來研究細節,此code 尚有問題..太多thread,會出問題
-----------
ReDim Class_relogin(ListView1.Items.Count - 1)
ReDim TPool(ListView1.Items.Count - 1)
Dim index As Integer
For i As Integer = 0 To ListView1.SelectedItems.Count - 1
index = Val(ListView1.SelectedItems.Item(i).SubItems(6).Text)
Class_relogin(index) = New Login()
ThreadPool.QueueUserWorkItem(New System.Threading.WaitCallback(AddressOf Class_relogin(index).ReLogin), index)

Next