ActiveX Control - добавление параметра аля Picture - VB

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

Как в АктивХ добавить параметр типа Picture как в объекте Image и Picture? Добавить ввод стринговых и прочих не сложно, цвет можно выбирать ссылаясь на OLE_COLOR а вот как сделать выбор как в вышеописаных компонентах и научить его поддерживать не только загрузку с харда (храня стринговый паремтр пути к файлу) но и иметь возможность ссылаться в ListBox и файл-ресурс? Это вот сильно урезаный и упрощенный кусок кода дающий возможность выбирать цвет фона например (есть еще код для сохранения и загрузки значения параметра но это не суть важно):

                    Листинг программы
                
Public Property Get BackColor() As OLE_COLOR
    BackColor = UserControl.BackColor
End Property
 
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    UserControl.BackColor() = New_BackColor
End Property

Решение задачи: «ActiveX Control - добавление параметра аля Picture»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private m_Pict As Picture
 
Public Property Get Pict() As Picture
  Set Pict = m_Pict
End Property
 
Public Property Set Pict(New_Pict As Picture)
  Set m_Pict = New_Pict
  PropertyChanged "Pict"
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Set m_Pict = PropBag.ReadProperty("Pict", Nothing)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("Pict", m_Pict, Nothing)
End Sub