Private Sub liv_Folders_Enter(sender As Object, e As EventArgs) Handles _
      liv_Folders.Enter
        Debug.Print("Folders Enter")
        For I = 0 To liv_Folders.Items.Count - 1
            If liv_Folders.Items(I).Selected = True 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)
            End If
        Next
    End Sub
 
    Private Sub liv_Folders_Leave(sender As Object, e As EventArgs) Handles _
      liv_Folders.Leave
        Debug.Print("Folders Leave")
    End Sub
    Private Sub liv_Folders_Validated(sender As Object, e As EventArgs) Handles _
      liv_Folders.Validated
        Debug.Print("Folders Validated")
        For I = 0 To liv_Folders.Items.Count - 1
            If liv_Folders.Items(I).Selected = True Then
                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
    End Sub