Threading question, tasks allways take the last created thread.

Hello,

I want to place some threads in an arraylist. (process is always the same)
But no mather what I do, my tasks take allways the last thread, never one of
the first created threads. I don't want to use a threadpool, I prefer this
method.

Here is my code : Any ideas what is wrong?

Dim mythreadlist As New ArrayList
Computerthreads = 16
For i = 0 To Computerthreads - 1
mythreadlist.Add(New Thread(AddressOf TheSweeper))
CType(mythreadlist(i), Thread).Name = "Computerthread " +
i.ToString()
CType(mythreadlist(i), Thread).IsBackground = True
CType(mythreadlist(i), Thread).Start()
Console.WriteLine("ComputerThread " + (i + 1).ToString + "
started")
Next

sub thesweeper()
Threading.Thread.CurrentThread.Sleep(100)
...do stuff
end sub