Public Class PropertyTypeEditor
      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.DropDown
      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 comp As Component = DirectCast((provider.GetType().GetProperty( _
              "Component").GetGetMethod().Invoke(provider, Nothing)), Component)
            Dim list As New PropertiesList(comp)
 
            editorService.DropDownControl(list)
            ' Dieser Code wird nie ausgeführt:
            If list.SelectedIndices.Count = 1 Then
               value = list.SelectedItem.ToString
            End If
 
            editorService.CloseDropDown()
 
            Return value
         Finally
            editorService = Nothing
         End Try
      End Function
   End Class