Private m_ButtonVisible As Boolean
Const m_def_ButtonVisible = True
 
Public Property Get ButtonVisible() As Boolean 
  ButtonVisible = m_ButtonVisible 
End Property 
 
Public Property Let ButtonVisible(ByVal NewVisible As Boolean) 
  m_ButtonVisible = NewVisible
  Button.Visible = NewVisible 
  PropertyChanged "ButtonVisible" 
End Property 
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
  With PropBag
    .WriteProperty "ButtonVisible", m_ButtonVisible, m_def_ButtonVisible
  End With
End Sub 
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
  With PropBag
    m_ButtonVisible = .ReadProperty("ButtonVisible", m_def_ButtonVisible) 
  End With
 
  Button.Visible = m_ButtonVisible
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de