[mamas1]

نعم
وذلك بالكود أعلاه
عندما تكون كومبو 1 فيها آسيا يتم مسح كومبو 2
ComboBox2.Items.Clear()
ثم ملئها
ComboBox2.Items.Add("الصين")
ComboBox2.Items.Add("يابان")
ثم وضع الصورة
Dim file_name As String = Application.ExecutablePath
file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & _
"\Map Asia.png"
'-------------- على أساس أن Map Asia.jpg هو إسم صورة خريطة آسيا و موجود في مجلد البرنامج

' Load the picture into a Bitmap.
Dim bm As New Bitmap(file_name)


PictureBox1.Image = bm
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

أي أن هذا ما تريده
لكني لا أفهم ....
أول ما تشتغل الفورم تملئ الأكواد و أنت قلتها
يعني
أول ما تشتغل الفورم Form_Load
تملئ الكومبو 1 بالقارات

ComboBox1.Items.Add("آسيا")
ComboBox1.Items.Add("أوروبا") ...

ثم عند تغير القيمة التي في ComboBox1 أي
ComboBox1_SelectedIndexChanged
يتم ملئ كومبو 2 بالدول المناسبة
أي بالضبط مسحها
ComboBox2.Items.Clear()
ثم ملئها
كمثال إذا كان ComboBox1 = "آسيا"

If ComboBox1.Text = "اسياء" Then
ComboBox2.Items.Add("الصين")
ComboBox2.Items.Add("يابان")
end If
أتمنى أن تتمكن من فهمي