Private m_Enabled As Boolean
 
Public Proerty Get Enabled() As Boolean
Enabled=m_Enabled
End Property
 
Public Proerty Let Enabled(ByVal vNew As Boolean)
m_Enabled=vNew
PropertyChanged "Enabled"
End Property
 
Private Sub UserControl_InitProperties()
Enabled=True
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperties "Enabled",Enabled,True
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Enabled=PropBag.ReadProperties( "Enabled",True´)
End Sub