Visual Basic

Herboren wrote:

I was at a mcdonalds hotspot typing in my car

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Add items from Settings to listbox
        updateList()
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Remove Item from List and update Settings
        If ListBox1.SelectedIndices.Count > 0 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(0))
        End If

        'New item list
        Dim newlist As New Specialized.StringCollection
        For Each item In ListBox1.Items
            newlist.Add(item)
        Next
        My.Settings.Item("theList") = newlist
        My.Settings.Save()

        'This is just a test to show the settings have been saved, by reloading them back into the listbox
        updateList()
End Sub


Private Sub updateList()
        'Add items from Settings to listbox
        ListBox1.Items.Clear()

        For Each item As String In My.Settings.Item("theList")
            ListBox1.Items.Add(item)
        Next
End Sub

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = vbRightButton And Shift = vbCtrlMask Then
      Range("A1") = "test"
      End If
End Sub