With New OpenFileDialog
            ' Filter (alle Dateien)
            .Filter = "alle Dateien (*.*)|*.*"
 
            'Anfangspfad Arbeitsplatz
            .InitialDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 
            ' Mehrfachauswahl zulassen
            .Multiselect = True
 
            ' Dialog aufrufen
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' alle ausgewählten Dateien ohne Pfadangabe in die ListBox 
                ' übertragen
                listQuellverzeichnis.Items.AddRange(.SafeFileNames)
            End If
        End With

Dim count As Integer
        count = listQuellverzeichnis.Items.Count
        If count > 0 Then
            For i = (count - 1) To 0 Step (-1)
                If listQuellverzeichnis.Items(i).Selected Then
                    Dim loeschen As String = listQuellverzeichnis.Items(i).value
                    listQuellverzeichnis.SelectedItems.Remove(loeschen)
                End If
            Next
        End If

If listQuellverzeichnis.Items(i).Selected Then