Private Sub Progress_Loaded(sender As Object, e As RoutedEventArgs) Handles _
  Me.Loaded
        Dim backupThread As New System.Threading.Thread(AddressOf StartBackup)
        backupThread.Start()
    End Sub
 
    Function StartBackup()
        For i As Integer = 1 To sourceList.Count
            lblCurrentPart.Content = "Ordner " & i & "/" & sourceList.Count
            Me.Title = "Fortschritt: " & percent & " %"
            If Not IO.Directory.Exists(destination & "\Sicherung vom " & _
              Now.Day & "_" & Now.Month & "_" & Now.Year & "\" & _
              sourceList.Item(i - 1)) Then IO.Directory.CreateDirectory( _
              destination & "\Sicherung vom " & Now.Day & "_" & Now.Month & "_" _
              & Now.Year & "\" & sourceList.Item(i - 1))
            Backup(sourceList.Item(i - 1), destination & "\Sicherung vom " & _
            Now.Day & "_" & Now.Month & "_" & Now.Year & "\" & sourceList.Item( _
            i - 1))
            MessageBox.Show("Das Backup wurde beendet!")
        Next
        Return True
    End Function

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak