Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  ' Eigenschaften speichern
  With PropBag
    .WriteProperty "Repeat", m_Repeat, False
    ...
  End With
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  ' Eigenschaften lesen
  With PropBag
    m_Repeat = .ReadProperty("Repeat", False)
    ...
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de