[3booody]

اسهل طريقة بدون قواعد بيانات هي

كود :

Public Class Form1

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       ComboBox2.Items.Clear()
       Select Case ComboBox1.Text
           Case "العراق"
               ComboBox2.Items.AddRange(Ist.ToArray)
           Case "مصر"
               ComboBox2.Items.AddRange(Est.ToArray)
           Case "السعودية"
               ComboBox2.Items.AddRange(Sst.ToArray)
           Case "سوريا"
               ComboBox2.Items.AddRange(SE.ToArray)
       End Select
       ComboBox2.Text = ComboBox2.Items(0).ToString
   End Sub
   Dim st() As String = {"العراق", "مصر", "السعودية", "سوريا"}
   Dim Ist() As String = {"بغداد", "البصرة", "موصل"}
   Dim Est() As String = {"القاهرة", "الاسكندرية", "الجيزة"}
   Dim Sst() As String = {"الرياض", "جده", "مكه"}
   Dim SE() As String = {"دمشق", "حلب", "حمص"}
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load      
       ComboBox1.Items.AddRange(st.ToArray)
       ComboBox1.Text = ComboBox1.Items(0).ToString
   End Sub
End Class