'Damit der Index mit deinem Check(Index) übereinstimmt: 0-5
Option Base 0
 
'deine privaten Variablen, in denen du die Werte speicherst
' wenn du drei Zustände erlauben willst, true, false ... , dann aus Boolean 
' Integerfeld machen
'und auch Integer übergeben bzw. zurückgeben
Private blnCheck(6) As Boolean
 
Public Property Get Value(ByVal index As Integer) As Boolean
    Value(index) = blnCheck(index)
End Property
 
Public Property Let Value(ByVal index As Integer, ByVal vNewValue As Boolean)
    blnCheck(index) = vNewValue
End Property

if uc.Check(1).value = true then ...