[سؤال] كيفيه ربط 2 compo box ببعض - نسخة قابلة للطباعة

كود :
Public Class Form1



    Dim saud As String ' متغير نصي لنضع بداخله القيم



    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged



        saud = ComboBox1.SelectedIndex ' المتغير يساوي قيم الكومبو بوكس 1 



        Select Case ComboBox1.Text





            Case "السعودية" ' اذا تم تحديد السعودية



                ComboBox2.Items.Clear() ' نظف الكومبو بوكس 2



                ComboBox2.Items.Add("الرياض") ' اضف هذا العنصر للكومبو بوكس 2

                ComboBox2.Items.Add("الدمام") ' اضف هذا العنصر للكومبو بوكس 2

                ComboBox2.Items.Add("مكة المكرمة") ' اضف هذا العنصر للكومبو بوكس 2

                ComboBox2.Items.Add("المدينة المنورة") ' اضف هذا العنصر للكومبو بوكس 2

                ComboBox2.Items.Add("تبــوك") ' اضف هذا العنصر للكومبو بوكس 2



                ComboBox2.SelectedIndex = 1 ' لإظهار أول عنصر في الكومبو بوكس 2



            Case "مصر"



                ComboBox2.Items.Clear()



                ComboBox2.Items.Add("القاهرة")

                ComboBox2.Items.Add("الإسكندرية")

                ComboBox2.Items.Add("شرما الشيخ")

                ComboBox2.Items.Add("الغردقة")

                ComboBox2.Items.Add("طابا")



                ComboBox2.SelectedIndex = 1

            Case "الأردن"





                ComboBox2.Items.Clear()



                ComboBox2.Items.Add("عمان")

                ComboBox2.Items.Add("الزرقاء")

                ComboBox2.Items.Add("الحسينية")

                ComboBox2.Items.Add("الجفر")

                ComboBox2.Items.Add("معان")





                ComboBox2.SelectedIndex = 1

        End Select



        ' //////////////// جميع الحقوق محفوظة لفيجوال بيسك لكل العرب 

    End Sub

End Class