Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        My.Settings.FoldersIndex = liv_Folders.SelectedItems(0).Index
        liv_Folders.SelectedItems.Clear()
 
        liv_Folders.Items.Item(My.Settings.FoldersIndex).SubItems(0).BackColor _
          = Color.FromKnownColor(KnownColor.Red) 'Highlight
        liv_Folders.Items.Item(My.Settings.FoldersIndex).SubItems(0).ForeColor _
        = Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
    End Sub