Private Const DEF_ENABLED = True Private bEnabled As Boolean Private Sub UserControl_Initialize() bEnabled = DEF_ENABLED End Sub Public Property Get Enabled() As Boolean Enabled = bEnabled End Property Public Property Let Enabled(ByVal bNewValue As Boolean) bEnabled = bNewValue If bNewValue Then lblCaption.ForeColor = &H80000012 Else lblCaption.ForeColor = &H80000011 End If End Property Private Sub UserControl_ReadProperties(PropBag As PropertyBag) bEnabled = PropBag.ReadProperty("Enabled", DEF_ENABLED) If bEnabled Then lblCaption.ForeColor = &H80000012 Else lblCaption.ForeColor = &H80000011 End If End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("Enabled", bEnabled, DEF_ENABLED) End Sub