Non so se ho capito cosa vuoi Veronica....però se ho capito giusto prova con questo codice:
For Each ctl In Controls
If (TypeOf ctl Is CheckBox) Then
If inLoad = False Then
Dim valore
valore = ctl.Value
inLoad = True
If valore = 0 Then
ctl.Value = 1
Else
ctl.Value = 0
End If
inLoad = False
End If
End If
Next