Colorer intitulé checkbox

Private Sub UserForm_Initialize()
For i = 1 To 96
    If Me.Controls("checkbox" & i).Value = True Then Me.Controls("checkbox" & i).BackColor = RGB(0, 255, 0)
Next i
End Sub

Private Sub UserForm_Initialize()
For i = 1 To 96
    If Me.Controls("checkbox" & i).Value = True Then Me.Controls("checkbox" & i).ForeColor = RGB(0, 255, 0)
Next i
End Su

Option Explicit
Public WithEvents oCBX As MSForms.CheckBox
Private Sub oCBX_Click()
oCBX.ForeColor = IIf(oCBX, vbBlue, vbBlack)
End Sub

Dim CBOX() As New ClsCheckBox
Private Sub UserForm_Initialize()
Dim oCL As Control
Dim x As Byte
    For Each oCL In Me.Controls
        If TypeName(oCL) = "CheckBox" Then
        x = x + 1
        ReDim Preserve CBOX(1 To x)
        Set CBOX(x).oCBX = oCL
        End If
    Next oCL
Set oCL = Nothing
End Sub