Public Property Get BackColor() As OLE_COLOR
 ...
End Property
 
Public Property Let BackColor(ByVal vNewColor As OLE_COLOR)
  ...
End Property

Public Property Get Font() As Font
    Set Font = UserControl.Font
End Property
 
Public Property Set Font(ByVal New_Font As Font)
    Set UserControl.Font = New_Font
    PropertyChanged "Font"
End Property