'Standard-Eigenschaftswerte:
Const m_def_Passwort = 0
'Eigenschaftsvariablen:
Dim m_Passwort As Single
 
 
'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'MemberInfo=12,0,0,0
Public Property Get Passwort() As Single
    Passwort = m_Passwort
End Property
 
Public Property Let Passwort(ByVal New_Passwort As Single)
    m_Passwort = New_Passwort
    PropertyChanged "Passwort"
End Property
 
'Eigenschaften für Benutzersteuerelement initialisieren
Private Sub UserControl_InitProperties()
    m_Passwort = m_def_Passwort
End Sub
 
'Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    m_Passwort = PropBag.ReadProperty("Passwort", m_def_Passwort)
 
    If m_Passwort = "123" Then
Else
'z.B. Command1.Enabled= False
MsgBox "Sie haben keine Berechtiung das Control zu nutzen!", vbCritical
End If
End Sub
 
'Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 
    Call PropBag.WriteProperty("Passwort", m_Passwort, m_def_Passwort)
End Sub