[Zuhare]

طريقة ثانية  لكود الأخ(Taha Okla)

PHP كود :

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles _
                                            CheckBox1.CheckedChanged, CheckBox2.CheckedChanged,
                                            CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,
                                            CheckBox5.CheckedChanged

        Dim checks() As CheckBox = {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5}

        TextBox1.Text = (From cb In checks
                    Where cb.Checked
                    Order By cb.Text
                    Select cb.Checked).Count
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles _
                                            CheckBox6.CheckedChanged, CheckBox7.CheckedChanged,
                                            CheckBox8.CheckedChanged, CheckBox9.CheckedChanged,
                                            CheckBox10.CheckedChanged

        Dim checks() As CheckBox = {CheckBox6, CheckBox7, CheckBox8, CheckBox9, CheckBox10}

        TextBox2.Text = (From cb In checks
                    Where cb.Checked
                    Order By cb.Text
                    Select cb.Checked).Count
    End Sub

End Class