Public Property Get BackColor() As OLE_COLOR
  BackColor = m_BackColor
End Property
 
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    m_BackColor = New_BackColor
    PropertyChanged "BackColor"
    ...
End Property