Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    Set Label1.Font = .ReadProperty("Font", Ambient.Font)
  End With
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "Font", Label1.Font, Ambient.Font
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de