Problema con Hebras.

[chcma]

Dim i As Integer = 0
Dim Hebra As Thread
Private Sub BtnLlenar_Click(.....) Handles BtnLlenar.Click
If ChkHebra.CheckState = CheckState.Checked Then
'NO FUNCIONA
'Hebra = New Thread(AddressOf LlenarComboHebra(10000))
Hebra = New Thread(AddressOf LlenarComboHebra)
Hebra.Start()
Else
LlenaCombo(100000)
End If
End Sub


Sub LlenarComboHebra()
CmbCombo.Items.Clear()
For i = 0 To 100000
CmbCombo.Items.Add("Elemento " & i)
Next
End Sub


Sub LlenaCombo(ByVal Numero As Integer)
CmbCombo.Items.Clear()
For i = 0 To Numero
CmbCombo.Items.Add("Elemento " & i)
Next
End Sub

¿Alguien Sabe como solucionar el problema y que las Hebras si acepten parámetros para los métodos?