Dim checkedItems As New List(Of String) For Each s As String In List1.CheckedItems checkedItems.Add(s) Next backgroundWorker1.RunWorkerAsync(checkedItems.ToArray())
backgroundWorker1.RunWorkerAsync(List1.CheckedItems.Cast(Of String)().ToArray())