Private Sub liv_Folders_ItemSelectionChanged(sender As Object, e As _
      ListViewItemSelectionChangedEventArgs) Handles _
      liv_Folders.ItemSelectionChanged
        For i = 0 To liv_Folders.Items.Count - 1
            liv_Folders.Items.Item(i).SubItems(0).BackColor = _
              Color.FromKnownColor(KnownColor.Window)
            liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
            Color.FromKnownColor(KnownColor.WindowText)
        Next i
 
        If liv_Folders.SelectedItems.Count > 0 Then
            ' Filesliste neu laden
            foldersAuswertung(liv_Folders.SelectedItems.Count)
        End If
    End Sub

    Private Sub liv_Folders_Leave(sender As Object, e As EventArgs) Handles _
      liv_Folders.Leave
        If liv_Folders.SelectedItems.Count > 0 Then
            For i = 0 To liv_Folders.Items.Count - 1
                selFolders(i) = liv_Folders.Items(i).Selected
            Next i
        End If
        liv_Folders.SelectedItems.Clear()
        For i = 0 To liv_Folders.Items.Count - 1
            If selFolders(i) = False Then
                liv_Folders.Items.Item(i).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Window)
                liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.WindowText)
            Else
                liv_Folders.Items.Item(i).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Red) 'Highlight
                liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
            End If
        Next i
    End Sub