[Taha Okla]

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

إما الحل العادي :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
                                       CheckBox1.CheckedChanged, CheckBox2.CheckedChanged,
                                       CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,
                                       CheckBox5.CheckedChanged, CheckBox6.CheckedChanged,
                                       CheckBox7.CheckedChanged, CheckBox8.CheckedChanged,
                                       CheckBox9.CheckedChanged, CheckBox10.CheckedChanged
   Dim Ce1 As Int16 = 0
   For Each ctrl As Control In Me.Controls
       If TypeOf ctrl Is CheckBox Then
           If CType(ctrl, CheckBox).Checked = True Then Ce1 += 1
       End If

   Next

   TextBox1.Text = Ce1.ToString

End Sub

أو بحسب (Linq) :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles _
                                       CheckBox1.CheckedChanged, CheckBox2.CheckedChanged,
                                       CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,
                                       CheckBox5.CheckedChanged, CheckBox6.CheckedChanged,
                                       CheckBox7.CheckedChanged, CheckBox8.CheckedChanged,
                                       CheckBox9.CheckedChanged, CheckBox10.CheckedChanged

   TextBox1.Text = (From cb In Controls.OfType(Of CheckBox)()
                       Where cb.Checked
                       Order By cb.Text
                       Select cb.Checked).Count

End Sub