'Standard-Eigenschaftswerte:
Const m_def_List = 0
'Eigenschaftsvariablen:
Dim m_List As Variant
 
'Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   m_List = PropBag.ReadProperty("List", m_def_List)
End Sub
 
'Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   Call PropBag.WriteProperty("List", m_List, m_def_List)
End Sub
 
'Eigenschaften für Benutzersteuerelement initialisieren
Private Sub UserControl_InitProperties()
   m_List = m_def_List
End Sub
 
'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'MemberInfo=14,0,2,0
Public Property Get List() As Variant
   List = m_List
End Property
 
Public Property Let List(ByVal New_List As Variant)
   If Ambient.UserMode = False Then Err.Raise 387
   m_List = New_List
   PropertyChanged "List"
End Property