Dim m_Font As Font
 
Public Property Set Font(ByVal New_Font As Font)
  Set m_Font = New_Font
  PropertyChanged "Font"
End Property
Public Property Get Font() As Font
  Set Font = m_Font
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    Set m_Font = .ReadProperty("Font", Parent.Font)
  End With
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    Call .WriteProperty("Font", Font, Ambient.Font)
  End With
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.