Private tmpBackC As Long
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 tmpBackC = PropBag.ReadProperty("Bla")
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 PropBag.WriteProperty "Bla", tmpBackC, UserControl.Backcolor
End Sub
 
Property Get Bla() As OLE_COLOR
 Bla = tmpBackC
End Property
 
Property Let Bla(vnewval As OLE_COLOR)
 tmpBackC = vnewval
 PropertyChanged "Bla"
End Property