اريد أن أجعل الكومبو بوكس يخزن كل اسم في ال setting

السلام عليكم ..

تعرف متحول في الــ Setting  باسم Pcs  من نوع String  و يكون الكود :

Imports System.ComponentModel


Public Class Form1
    Dim pcList As BindingList(Of String)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If String.IsNullOrEmpty(My.Settings.Pcs) Then
            pcList = New BindingList(Of String)
        Else
            pcList = New BindingList(Of String)(My.Settings.Pcs.Split("!").ToList())
        End If
        ComboBox1.DataSource = pcList
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        My.Settings.Pcs = String.Join("!", pcList.ToArray())
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If String.IsNullOrEmpty(ComboBox1.Text.Trim()) Then Exit Sub
        If Not pcList.Contains(ComboBox1.Text) Then
            Dim oldText = ComboBox1.Text
            pcList.Add(ComboBox1.Text)
            pcList.ResetBindings()
            ComboBox1.Text = oldText
        End If
    End Sub

    Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
        If pcList.Contains(ComboBox1.Text) Then
            pcList.Remove(ComboBox1.Text)
            pcList.ResetBindings()
        End If
    End Sub
End Class

 الملف مرفق ..

StoreInSetting.rar