Visual Basic - Como pasar datos a un Thread?

Necesito pasar una variable a un Thread pero no me deja:

Sub...
Dim i as Byte = 3
Thread = New Thread(AddressOf THR(i))
End Sub

Sub THR(ByVal i as Byte)
'codigo que usa i...
End Sub

El caso es que con Threads no me deja pasarle la i y es importante porque está dentro de un bucle infinito, la i cambia de valor continuamente así que no me vala declararla como global porque la i puede cambiar antes de que Sub THR la coja.

Creo que estás programando en VB.NET o ¿te has creado una clase llamada Thread?.
Bueno, igualmente los threads no soportan el paso de variables directamente. Lo más lógico para el paso de variables a procesos es que el proceso apunte a una clase propia que programes. Antes de lanzar el proceso, inicializas y modificas los valores que desees de la clase, pero a la hora de lanzar el proceso, el AddressOf, debe apuntar a un procedimiento sin parámetros que procese los metodos de la clase que se encapsula en el proceso.

Lo siento pero es así.

Un saludo y suerte. ; )