Public Property Get Font() As Font
Set Font = Label1.Font
End Property
 
Public Property Set Font(ByVal vNewValue As Font)
Set Label1.Font = vNewValue    
PropertyChanged "Font"
End Property
 
Public Property Get ForeColor() As OLE_Color
ForeColor = Label1.ForeColor
End Property
 
Public Property Let ForeColor(ByVal vNewValue As OLE_Color)
Label1.ForeColor = vNewValue
PropertyChanged "ForeColor"
End Property
 
Public Property Get BackColor() As OLE_Color
BackColor = UserControl.BackColor
End Property
 
Public Property Let BackColor(ByVal vNewValue As OLE_Color)
UserControl.BackColor = vNewValue
PropertyChanged "BackColor"
End Property
 
Private Sub UserControl_InitProperties()
Set Label1.Font = Ambient.Font
Label1.ForeColor = vbBlack
UserControl.BackColor = vbButtonFace
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    Set Label1.Font = .ReadProperty("Font", Ambient.Font)
    Label1.ForeColor = .ReadProperty("ForeColor", vbBlack)
    UserControl.BackColor = .ReadProperty("BackColor", vbButtonFace)
  End With
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "Font", Label1.Font, Ambient.Font
    .WriteProperty "ForeColor", Label1.ForeColor, vbBlack
    .WriteProperty "BackColor", UserControl.BackColor, vbButtonFace
  End With
End Sub