Visual Basic

For i = 1 To 10
    ListView1.Items.Add(i)
Next

Dim Rand As New Random
Dim int As Integer

For Each lvi As ListViewItem In ListView1.Items
    int = Rand.Next(0, 2)
    If int = 0 Then
        lvi.Selected = False
    Else
        lvi.Selected = True
    End If
Next

For Each SelLvi As ListViewItem In ListView1.SelectedItems
    MessageBox.Show(SelLvi.Text)
Next

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