Quando i controlli diventano molti e sotto la stessa gestione, puoi utilizzare le matrici di controlli.
Se vuoi ottenere lo stesso comportamento di un OptionButton ti basta un azzeramento:
codice:
Private Sub CheckGruppo1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each CheckBox In CheckGruppo1
  CheckBox.Value = vbUnchecked
Next
End Sub
Questo supponendo che la matrice si chiami CheckGruppo1