Visual Basic

Public Class Form1

    'Load Settings
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each item As String In My.Settings.lbCollection
            lbView.Items.Add(item)
        Next
    End Sub

    'Save settings when form closes
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        My.Settings.Save()
    End Sub

    'Add settings when btn_Add" is clicked to listbox and settings
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If tbAddCollection.Text <> "" And lbView.Items.Contains(tbAddCollection.Text) = False Then
            lbView.Items.Add(tbAddCollection.Text)
            My.Settings.lbCollection.Add(tbAddCollection.Text)
        End If
    End Sub

    'Display selected item in Textbox
    Private Sub lbView_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbView.SelectedIndexChanged
        tbAddCollection.Text = lbView.SelectedItem
    End Sub

    'Remove selected item and its setting
    Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
        If lbView.SelectedIndex <> -1 Then
            lbView.Items.RemoveAt(lbView.SelectedIndex)
            My.Settings.lbCollection.(lbView.SelectedItem)

        End If
    End Sub

End Class