Public Property Get BackColor() As cColor
BackColor = m_BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As cColor)
m_BackColor = New_BackColor
UserControl.BackColor = m_BackColor
PropertyChanged "BackColor"
End Property
Private Sub UserControl_Initialize()
m_BackColor = cvbRed
UserControl.BackColor = m_BackColor
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_BackColor = PropBag.ReadProperty("BackColor", vbRed)
UserControl.BackColor = m_BackColor
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("BackColor", m_BackColor, vbRed)
End Sub