Visual Basic.NET - 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.

Me temo que en .NET es imposible pasar parámetros a un Thread... asi que creo que tendrás que buscar alguna manera alternativa de hacer lo que quieres.

Lo más cómodo es crear una clase, la cual será lanzada por el proceso. Asigna los valores necesarios que necesites encapsular y despues lanza el proceso.
El AddressOf debe apuntar al procedimiento (sin parámetros), que inicialice la instancia a la clase.

Un saludo