Программирование свойств - VB

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

Добавил свойство к своему Active X контролу. Но хочется, чтобы нужно было не вводить значение в свойство вручную, а выбирать из небольшого меню, как у стандартных свойств. Как это сделать? Вот свойство мое:

Public Property Get Color() As Long
Color = segments_color
End Property
 
Public Property Let Color(new_segments_color As Long)
segments_color = new_segments_color
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
segments_color = PropBag.ReadProperty("Color", 0)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Color", segments_color, 0
End Sub

Решение задачи: «Программирование свойств»

textual
                            Листинг программы 
                        

                            Public Property Get Color() As OLE_COLOR
Color = segments_color
End Property
 
Public Property Let Color(new_segments_color As OLE_COLOR)
segments_color = new_segments_color
End Property
                        