[3booody]

كود :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "مصر"
                _Get("مصر")
            Case "العراق"
                _Get("العراق")
        End Select
    End Sub
    Private Sub _Get(ByVal CNT As String)
        ComboBox2.Items.Clear()
        If CNT = "مصر" Then
            Dim m() As String = {"القاهرة", "الاسكندرية", "المنصورة"}
            ComboBox2.Items.AddRange(m)
        ElseIf CNT = "العراق" Then
            Dim m() As String = {"بغداد", "موصل", "الانبار"}
            ComboBox2.Items.AddRange(m)
        End If
    End Sub

[COLOR="#008080"]
انته قم بوضع باقي الدول والمحافظات[/COLOR]