[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

استبدل الكود الموجود في مشروع العرب بالكود التالي:

كود :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(New String() {" فلسطين", " مصر", " الاردن"})
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        Select Case ComboBox1.SelectedIndex
            Case 0
                ComboBox2.Items.AddRange(New String() {"القدس", "غزة"})
                LstIndex.Image = Global.WindowsApplication1.My.Resources.Palestine
            Case 1
                ComboBox2.Items.AddRange(New String() {"القاهرة", "الاسكندرية", "بورسعيد"})
                LstIndex.Image = Global.WindowsApplication1.My.Resources.Egypt
            Case 2
                ComboBox2.Items.AddRange(New String() {"عمان", "البتراء"})
                LstIndex.Image = Global.WindowsApplication1.My.Resources.Jordan
        End Select
        LstIndex.Visible = True
        ComboBox2.SelectedIndex = 0
    End Sub
End Class

بالتوفيق