Enviar parâmetros

Pessoal, alguém sabe como enviar um parâmetro na hora q estou iniciando um thread?

Ex:

Private th As Threading.Thread() ...Dim th(10) As Object... th(a) = New Threading.Thread(AddressOf MeuMétodo(i)) th(a).Start()

Nessa linha

th(a) = New Threading.Thread(AddressOf MeuMétodo(i))Passo o parâmetro i para chamar o Método, porém o VB.NEt não está aceitando, alguém sabe como fazer isso?