Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
 
        Save = True
 
A:
 
        Stunden = My.Computer.Clock.LocalTime.Hour
        Minuten = My.Computer.Clock.LocalTime.Minute
        Sekunden = My.Computer.Clock.LocalTime.Second
        Datum = My.Computer.Clock.LocalTime.Date
 
        If Save Then
 
            Dim i As Integer
 
            Dim tmpSucheUDT As TypeSuchParameter = DirectCast(e.Argument,  _
              TypeSuchParameter)
 
            Dim Dateien() As String = Directory.GetFiles(tmpSucheUDT.Pfad, _
              tmpSucheUDT.Dateityp)
 
            For Each Datei As String In Dateien
 
                '### Mein Part
 
                Dim Sicherung As String = "Auto-Sicherung vom " & Datum & " - " _
                  & Stunden & "-" & Minuten + "-" & Sekunden
 
                DP1_Save = Zwischenspeicher & "\" & Sicherung
 
                MkDir(DP1_Save)
 
                My.Computer.FileSystem.CopyDirectory(DC_Save, DP1_Save, True)
 
                If Save Then
 
                    If CheckBox1.Checked Then
                        MsgBox("Sicherung abgeschlossen." & vbNewLine & "Pause" & _
                          "wird eingeleitet." _
                               , MsgBoxStyle.Information, "INFO")
                    Else
 
                    End If
 
                Else
 
                    GoTo C
 
                End If
 
                '### Mein Part Ende
 
                If BackgroundWorker2.CancellationPending Then
                    e.Cancel = True
                    Return
                End If
 
                 BackgroundWorker2.ReportProgress((i + 1) * 100 / _
                  (Dateien.Length + 1), Datei)
                i += 1
            Next
 
            System.Threading.Thread.Sleep(Delay_Save)
 
            GoTo A
 
        Else
 
            GoTo C
 
        End If
 
 
C:
        MsgBox("Permanente Sicherung beendet." & vbNewLine & "Bitte für einen" & _
          "erneuten Start die Zeit neu setzen", MsgBoxStyle.Information, "Done")
 
    End Sub
 
 Private Sub BackgroundWorker2_ProgressChanged(ByVal sender As Object, ByVal e _
   As System.ComponentModel.ProgressChangedEventArgs) Handles _
   BackgroundWorker2.ProgressChanged
 
 
        Dim Datei As String = DirectCast(e.UserState, String)
 
        Dim itemX As System.Windows.Forms.ListViewItem
        itemX = Form2.ListView1.Items.Add(Form2.ListView1.Items.Count.ToString, _
          Datei, "")
 
        ProgressBar1.Value = e.ProgressPercentage
 
     End Sub