[3booody]

لنفرض لديك زر بوتون وتكست بوكس تستخدم هذا الكود

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ComboBox1.Items.Add(TextBox1.Text)
   End Sub

او اذا تريد تضيف كثير من الخيارات في نفس الوقت مثلا كان في التكست بوكس عدة كلمات مفصولة بسطر جديد مثل
مصر
السعودي
سوريا
العراق
تستخدم هذا الكود

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ComboBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)
   End Sub