Option Explicit
 
Private m_Value As OLE_OPTEXCLUSIVE
 
Public Property Get Value() As OLE_OPTEXCLUSIVE
  Value = m_Value
End Property
 
Public Property Let Value(ByVal NewValue As OLE_OPTEXCLUSIVE)
  If m_Value <> NewValue Then
    m_Value = NewValue
    BackColor = IIf(m_Value = True, vbGreen, vbRed)
    PropertyChanged "Value"
  End If
End Property
 
Private Sub UserControl_Click()
  Value = True
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Me.Value = PropBag.ReadProperty("Value", False)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "Value", Me.Value, False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de