Помогите разобраться с ReadProperties и WrightProperties - VB

Формулировка задачи:

Проблема такая: у меня есть UserControl, в него я вставил своё свойство BackColor. Я делаю так:

                    Листинг программы
                
 
                        
                          
                    
Public Property Get BackColor() As OLE_COLOR
    BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal oColor As OLE_COLOR)
    UserControl.BackColor = oColor
End Property
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty 'BackCol', UserControl.BackColor
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserControl.BackColor = PropBag.ReadProperty('BackCol')
End Sub

Выводит ошибку 327: Data value named ''BackCol'' not found Я, естественно, хочу, чтобы при запуске BackColor выводилось таким, каким я его ввел в PropertyBrowser, а не по умолчанию. Кто знает, помогите. Заранее спасибо.

Решение задачи: «Помогите разобраться с ReadProperties и WrightProperties»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Property Get BackColor() As OLE_COLOR
   BackColor = txtBase.BackColor
End Property
 
Public Property Let BackColor(ByVal NewColor _
      As OLE_COLOR)
   txtBase.BackColor = NewColor
   PropertyChanged 'BackColor'
End Property