Dim count As Integer
count = 0
If checkbox1.Checked Then
count = count + 1
End If
If checkbox2.Checked Then
count = count + 1
End If
If checkbox3.Checked Then
count = count + 1
End If
textbox1.Text = count.ToString()
Если вы хотите проверить использование нескольких элементов управления (я изменяю код @Nick):
<code>Dim count As Integer
count = 0
For Each ctrl As Control In Page.Controls
If TypeOf ctrl Is CheckBox Then
If CType(Control, CheckBox).Checked Then
count=count+1
End If
End If
Next
textbox1.Text = count.ToString()