NcplThread = New Threading.Thread(AddressOf ThreadWork)
Dim Parameters = new Object(){"1","1.1","User","value",1,True}
NcplThread.Start(Parameters)
Sub ThreadWork(Parameters as Object)
SearchPickListSource(Parameters(0),Parameters(1),Parameters(2),Parameters(3), Parameters(4),Parameters(5))
End Sub
Function SearchPickListSource(ByVal soNumber As String, ByVal PickListNumber As String, ByVal createdBy As String, ByVal sxValue As String, ByVal plantId As Integer, ByVal partnerCheckBox As Boolean) As DataTable
...
End Function