Public Class SelectionEditor
    Inherits UITypeEditor
    Implements Core.ISelectionEditor
 
    Private EdService As IWindowsFormsEditorService
 
    Public Overloads Overrides Function EditValue(ByVal context As _
      ITypeDescriptorContext, _
        ByVal provider As IServiceProvider, ByVal value As Object) As Object _
        Implements Core.ISelectionEditor.EditValue
 
        If (Not context Is Nothing And Not context.Instance Is Nothing And Not _
          provider Is Nothing) Then
 
            EdService = CType(provider.GetService(GetType( _
              IWindowsFormsEditorService)), IWindowsFormsEditorService)
            If (Not EdService Is Nothing) Then
 
                Dim DlgObj As New SelectionEditorDlg, DlgRes As DialogResult
                DlgRes = DlgObj.ShowDialog()
 
            End If
        End If
 
        Return value
    End Function
 
    Public Overloads Overrides Function GetEditStyle(ByVal context As _
      ITypeDescriptorContext) _
        As UITypeEditorEditStyle Implements Core.ISelectionEditor.GetEditStyle
 
        If (Not context Is Nothing And _
        Not context.Instance Is Nothing) Then
            Return UITypeEditorEditStyle.Modal
        End If
        Return MyBase.GetEditStyle(context)
    End Function
 
    Public Overrides Function GetPaintValueSupported(ByVal context As _
      ITypeDescriptorContext) As Boolean _
        Implements Core.ISelectionEditor.GetPaintValueSupported
 
        Return False
 
    End Function
 
End Class

Public Interface ISelectionEditor
    Function EditValue(ByVal context As ITypeDescriptorContext, _
            ByVal provider As IServiceProvider, ByVal value As Object) As Object
    Function GetEditStyle(ByVal context As ITypeDescriptorContext) As _
      UITypeEditorEditStyle
    Function GetPaintValueSupported(ByVal context As ITypeDescriptorContext) As _
    Boolean
End Interface

        <Editor(GetType(Core.ISelectionEditor), GetType(UITypeEditor))> _
        Public Property XXXListCol() As BindingList(Of XXXListSpec)