To pass data into the thread you need to do something similar
for Counter as integer = 0 to 100
dim t as new thread(addressof FooBar)
t.start(counter)
next
private sub FooBar(byval Value as integer)
debug.print(value.tostring)
end sub
use this article for further reading
ParameterizedThreadStart Delegate[
^]