Option Explicit
 
Private intforecolor As Integer
 
Public Property Get ForeColor() As Variant
    ForColor = intforecolor
End Property
 
Public Property Let ForeColor(ByVal vNewColor As Integer)
    Dim i As Integer
    intforecolor = vNewColor
    For i = 0 To 5
        CheckBox(i).ForeColor = intforecolor
    Next i
End Property