Как изменить состояние многих CheckBox на форме в один прием - VB

Формулировка задачи:

Товарищи, наверное нубский вопрос, но если у меня есть 25 чекбоксов (0-24 соответственно), то как мне перечислить их с 0 до 19, чтобы не писать все по очереди? Хотелось бы задать переменную и играть с ее значениями в общем, а как это с чекбоксами правильно сделать я понять не могу

Решение задачи: «Как изменить состояние многих CheckBox на форме в один прием»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a As Integer
a = 9
Dim c As Control, k1%, k2%
 
k1 = 0: k2 = 0
For Each c In Me.Controls
 If TypeOf c Is CheckBox Then
  If c.Value = 1 Then
    If CInt(Mid(c.Name, 6)) < 16 Then k1 = k1 + 1
    If CInt(Mid(c.Name, 6)) >= 16 And CInt(Mid(c.Name, 6)) <= 20 Then k2 = k2 + 1
   End If
 End If
Next
 
MsgBox IIf(k2 > 0 Or k1 > a, "Успешно", "Провально")
End Sub
                        