Свойства добавляются и обрабатываются процедурами
Property Let Name_New_Properties() и Property Get Name_New_Properties()
по-моему.. ну и еще что-то.. было..
короче могу вспмнть и объяснить поподродбнее.. если надо.. %)

Ну.. лучше на примере показать:

Dim m_UpperCase As Boolean
Const m_def_UpperCase = 0

Public Property Get UpperCase() As Boolean
UpperCase = m_UpperCase
End Property

Public Property Let UpperCase(ByVal new_UpperCase As Boolean)
m_UpperCase = new_UpperCase
PropertyChanged "UpperCase"
End Property


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
...
m_UpperCase = .ReadProperty(UpperCase, m_def_UpperCase)
...
End With
End Sub

'с пом. этой ф-ии VB загрузит на этапе выполнения значения свойств,
сохраненные на этапе проектирования UserControl
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
...
Call .WriteProperty("UpperCase", m_UpperCase, m_def_UpperCase)
...
End With
End Property