Public Class Component1
 
   Private myValue1 As New BindingList(Of MyItem)
   Private myValue2 As New BindingList(Of MyItem)
 
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
  Public Property StandardEditor() As BindingList(Of MyItem)
      Get
         Return myValue1
      End Get
      Set(ByVal value As BindingList(Of MyItem))
         myValue1 = value
      End Set
   End Property
 
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
     Editor(GetType(Design.MyOwnTypeEditor), GetType( _
     Drawing.Design.UITypeEditor))> _
   Public Property MyOwnEditor() As BindingList(Of MyItem)
      Get
         Return myValue2
      End Get
      Set(ByVal value As BindingList(Of MyItem))
         myValue2 = value
      End Set
   End Property
 
End Class
 
Public Class MyItem
   Private myValue As New Control
 
   Public Sub New()
      myValue = Nothing
   End Sub
 
   Public Property Value() As Control
      Get
         Return myValue
      End Get
      Set(ByVal value As Control)
         myValue = value
      End Set
   End Property
End Class

   Public NotInheritable Class MyOwnTypeEditor
      Inherits UITypeEditor
 
      Public Overloads Overrides Function GetEditStyle(ByVal context As _
        ITypeDescriptorContext) As UITypeEditorEditStyle
         If context Is Nothing OrElse context.Instance Is Nothing Then
            Return MyBase.GetEditStyle(context)
         End If
         Return UITypeEditorEditStyle.Modal
      End Function
 
      Public Overloads Overrides Function EditValue(ByVal context As _
        ITypeDescriptorContext, ByVal provider As IServiceProvider, ByVal value _
        As Object) As Object
         Dim editorService As IWindowsFormsEditorService
 
         If context Is Nothing OrElse context.Instance Is Nothing OrElse _
           provider Is Nothing Then
            Return value
         End If
 
         Try
            editorService = DirectCast(provider.GetService(GetType( _
              IWindowsFormsEditorService)), IWindowsFormsEditorService)
 
            Dim siEditor As New MyOwnEditor
            siEditor.List = DirectCast(value, BindingList(Of MyItem))
 
            If editorService.ShowDialog(siEditor) = DialogResult.OK Then
               value = siEditor.List
            End If
 
            Return value
         Finally
            editorService = Nothing
         End Try
      End Function
   End Class