How to pass multiple parameters in thread in VB

Private Sub Btn_Click() 

Dim Evaluator = New Thread(Sub() Me.TestThread(goodList, 1))
evaluator.Start()
Exit Sub