[كود] التنقل بين الدول في الكمبو بوكس ليعطيني النتائج مباشرة

كود :

 If RadioButton1.Checked Then

            If ComboBox1.Text = "دول مجلس التعاون" Then

                TextBox1.Text = "42.5"

                TextBox2.Text = "20"

                TextBox3.Text = "53.5"

                TextBox4.Text = "0"

                TextBox5.Text = "10"

                TextBox6.Text = "18"

                TextBox7.Text = "0.4"

            ElseIf ComboBox1.Text = "البلدان العربية" Then

                TextBox1.Text = "46"

                TextBox2.Text = "20"

                TextBox3.Text = "53.5"

                TextBox4.Text = "0"

                TextBox5.Text = "10"

                TextBox6.Text = "21"

                TextBox7.Text = "0.4"

            ElseIf ComboBox1.Text = "دول اوروبا ، تركيا ، امريكا وكندا" Then

                TextBox1.Text = "62"

                TextBox2.Text = "20"

                TextBox3.Text = "65"

                TextBox4.Text = "0"

                TextBox5.Text = "10"

                TextBox6.Text = "28"

                TextBox7.Text = "0.4"

            ElseIf ComboBox1.Text = "بقية دول العالم" Then

                TextBox1.Text = "68"

                TextBox2.Text = "20"

                TextBox3.Text = "72.5"

                TextBox4.Text = "0"

                TextBox5.Text = "10"

                TextBox6.Text = "32"

                TextBox7.Text = "0.4"

            ElseIf ComboBox1.Text = "شبكات الأقمار الصناعية كالثريا وغيرها" Then

                TextBox1.Text = "100"

                TextBox2.Text = "85"

                TextBox3.Text = "115"

                TextBox4.Text = "0"

                TextBox5.Text = "23"

                TextBox6.Text = "155"

                TextBox7.Text = "1"

            End If

        ElseIf RadioButton2.Checked Then

            If ComboBox1.Text = "دول مجلس التعاون" Then

                TextBox1.Text = "425.00"

                TextBox2.Text = "200"

                TextBox3.Text = "535.00"

                TextBox4.Text = "0.00"

                TextBox5.Text = "100.00"

                TextBox6.Text = "180.00"

                TextBox7.Text = "4.00"

            ElseIf ComboBox1.Text = "البلدان العربية" Then

                TextBox1.Text = "460.00"

                TextBox2.Text = "200.00"

                TextBox3.Text = "535.00"

                TextBox4.Text = "0.00"

                TextBox5.Text = "100.00"

                TextBox6.Text = "210.00"

                TextBox7.Text = "4.00"

            ElseIf ComboBox1.Text = "دول اوروبا ، تركيا ، امريكا وكندا" Then

                TextBox1.Text = "620.00"

                TextBox2.Text = "200.00"

                TextBox3.Text = "650.00"

                TextBox4.Text = "0.00"

                TextBox5.Text = "100.00"

                TextBox6.Text = "280.00"

                TextBox7.Text = "4.00"

            ElseIf ComboBox1.Text = "بقية دول العالم" Then

                TextBox1.Text = "680.00"

                TextBox2.Text = "200.00"

                TextBox3.Text = "725.00"

                TextBox4.Text = "0.00"

                TextBox5.Text = "100.00"

                TextBox6.Text = "320.00"

                TextBox7.Text = "4.00"

            ElseIf ComboBox1.Text = "شبكات الأقمار الصناعية كالثريا وغيرها" Then

                TextBox1.Text = "1000.00"

                TextBox2.Text = "850.00"

                TextBox3.Text = "1150.00"

                TextBox4.Text = "0.00"

                TextBox5.Text = "230.00"

                TextBox6.Text = "1550.00"

                TextBox7.Text = "10.00"

            End If

        End If