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

Private Sub Command1_Click()
Dim c As Control, k%
k = 0
For Each c In Me.Controls
 If TypeOf c Is CheckBox Then
    c.Caption = "Check" & k: k = k + 1
    c.Value = k Mod 2
 End If
Next
End Sub

Private Sub Command1_Click()
Dim c As Control, k%
k = 0
For Each c In Me.Controls 'в цикле по всех элементах управления на форме (Me===Form1)/' просматриваем все контролы)
 If TypeOf c Is CheckBox Then 'если тип контрола (ЭлУпр) есть CheckBox (или другой необходимый)
    c.Caption = "Check" & k: k = k + 1'то, например формируем надписи
    c.Value = k Mod 2                       'и (или) устанавливаем флажки
 End If
Next
End Sub

Private Sub Command1_Click()
Dim c As Control, k%, ms$
k = 0
ms = ""
For Each c In Me.Controls
 If TypeOf c Is CheckBox Then
    If k >= 0 And k <= 19 Then
    c.Value = 1
    ms = ms & c.Name & "(" & k & ")" & vbLf
    k = k + 1
    End If
 End If
Next
MsgBox ms
End Sub

Private Sub Command1_Click()
Dim а, b As Integer
A = 9
b = 0
If Check16.Value = 0 Or Check17.Value = 0 Or Check18.Value = 0 Or Check19.Value = 0 Or Check20.Value = 0 Then
MsgBox "Провально"
GoTo m
Else
    If Check1.Value = 1 Then b = b + 1
    If Check2.Value = 1 Then b = b + 1
    If Check3.Value = 1 Then b = b + 1
    If Check4.Value = 1 Then b = b + 1
    If Check5.Value = 1 Then b = b + 1
    If Check6.Value = 1 Then b = b + 1
    If Check7.Value = 1 Then b = b + 1
    If Check8.Value = 1 Then b = b + 1
    If Check9.Value = 1 Then b = b + 1
    If Check10.Value = 1 Then b = b + 1
    If Check11.Value = 1 Then b = b + 1
    If Check12.Value = 1 Then b = b + 1
    If Check13.Value = 1 Then b = b + 1
    If Check14.Value = 1 Then b = b + 1
    If Check15.Value = 1 Then b = b + 1
    
If b > 9 Then
MsgBox "Успешно"
Else
MsgBox "Провально"
End If
End If
m:
End Sub

For i = 16 To 20
    If Me.Controls("Check" & i).Value = 0 Then MsgBox "Провально": Exit Sub
Next i
 
For i = 1 To 15
  If Me.Controls("Check" & i).Value = 1 Then b = b + 1
Next i

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