When your form loads, get the items using:
Code:
Dim values = If(My.Settings.MySettingName?.Count > 0, My.Settings.MySettingName, New Specialized.StringCollection())
MyListBox.Items.AddRange(values.Cast(Of String).ToArray())
Then when you want to add a value to to the collection, use:
Code:
Dim value = InputBox("New Value: ")
If (My.Settings.MySettingName Is Nothing) Then
My.Settings.MySettingName = New Specialized.StringCollection() From { value }
Else
My.Settings.MySettingName.Add(value)
End If
My.Settings.Save()
MyListBox.Items.Add(value)