[asemshahen5]

أضف الى السيتنغ اسم جديد ليكن Test من نوع String.Collection و ضع الكود التالي في الزر .

كود :

ComboBox1.Items.Add(TextBox1.Text)
       My.Settings.Test.Add(TextBox1.Text)
       My.Settings.Save()

عند تحميل القورم ضع الكود التالي :

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For Each arr As String In My.Settings.Test
           ComboBox1.Items.Add(arr)
       Next
   End Sub