Private Sub ImporterBackgroundWorker_DoWork(ByVal sender As System.Object, _
      ByVal e As System.ComponentModel.DoWorkEventArgs) Handles _
      importerBackgroundWorker.DoWork
        ' Anzahl der zu importierenden Daten holen
        Dim numberOfIDsToImport As Integer = Me.scanResults.Count
 
        ' BackgroundWorker aus sender-Parameter holen
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
 
        ' ...
 
        ' Für jeden zu importierenden Datensatz
        For i As Integer = 0 To numberOfIDsToImport - 1
            ' Überprüfen, ob Vorgang abgebrochen werden soll, ggf. abbrechen
            If worker.CancellationPending Then
                e.Cancel = True
                Exit For
            End If
 
            ' Daten importieren
            DataImporter.Import(Me.scanResults(i), 0 = i)
 
            ' Fortschritt berechnen und melden
            Dim percentage As Integer = CInt((100 * i) / numberOfIDsToImport)
            worker.ReportProgress(percentage, i + 1)
        Next
    End Sub
 
    Private Sub ImporterBackgroundWorker_ProgressChanged(ByVal sender As _
      System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
      Handles importerBackgroundWorker.ProgressChanged
        ' Fortschritt anzeigen
        Me.importProgressBar.Value = e.ProgressPercentage
        Me.importStatus.Text = String.Format("Importiert: {0}", e.UserState)
    End Sub

Ralf