For Each l As ListViewItem In lstCameras.Items
            If l.Checked = True Then
                Dim bw As New BackgroundWorker
                bw.WorkerReportsProgress = True
                bw.WorkerSupportsCancellation = True
                AddHandler bw.DoWork, AddressOf bw_DoWork
                bw.RunWorkerAsync(l)
                ' AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
                ' AddHandler bw.RunWorkerCompleted, AddressOf 
                ' bw_RunWorkerCompleted
            End If

    Private Sub bw_DoWork(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs)
        ' Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
 
        Dim l As New ListViewItem
        l = e.Argument
 
        Debug.WriteLine("Update von " & l.Name)
        Debug.WriteLine(cmbFirmware.SelectedItem)
 
    End Sub