Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "Name_der_Eigenschaft", m_Wert, DefaultWert
  End With
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    m_Wert = .ReadProperty("Name_der_Eigenschaft", DefaultWert)
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de