[Taha Okla]

بالرغم من أن طريقة الأخ (Zuhare )  هي الأبسط والأفضل،،

ولكن يمكنك التعديل على الكود السابق بحيث :
لو أن ما تريد العمل عليه تعيد تسميته بإضافة رمز ما (g) مثلا  فيصبح(gCheckBox) لكل واحدة منها،
فيصبح الكود :

كود :

Private Sub gCheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
               gCheckBox1.CheckedChanged, gCheckBox2.CheckedChanged,
               gCheckBox3.CheckedChanged, gCheckBox4.CheckedChanged,
               gCheckBox5.CheckedChanged, gCheckBox6.CheckedChanged,
               gCheckBox7.CheckedChanged, gCheckBox8.CheckedChanged,
               gCheckBox9.CheckedChanged, gCheckBox10.CheckedChanged

   TextBox1.Text = (From cb In Controls.OfType(Of CheckBox)()
                       Where cb.Checked And cb.Name.Contains("gCheckBox")
                       Order By cb.Text
                       Select cb.Checked).Count

End Sub

ملاحظة : كان بإمكانك التفكير بأحد هذه الطرق على نفس الكود لكن لعدم اهتمامك بالأساسيات، لم تفهم الكود وقمت بالتطبيق ووتظن أنه حالة خاصة..
مع العلم أن ما قمنا عليه أنا والأخ (Zuhare ) هو تغيير بسيط ع نفس الكود .. وأعطى نتيجة مختلفة وكما نريد بالضبط ..
يفضل أن تقوم دوما ودوريا بمشاهدة فيديوهات لشرح الأساسيات في الفيجول بيزك وغيرها (الخوارزميات على أي لغة)  وستتعلم منها الكثير الكثير ..