<code>Public Property Get BackPicture() As Picture
  Set BackPicture = UserControl.Picture
End Property
 
Public Property Set BackPicture(ByVal vNewValue As Picture)
  Set UserControl.Picture = vNewValue
  PropertyChanged "BackPicture"
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</code>