Protected Overrides Function CreateCollectionForm() As _
  System.ComponentModel.Design.CollectionEditor.CollectionForm
    Me.m_CollectionForm = MyBase.CreateCollectionForm
    Me.m_CollectionForm.ShowIcon = False
    Try
      CType(m_CollectionForm.Controls(Const_PropertyGridIndex0).Controls( _
        Const_PropertyGridIndex1), PropertyGrid).HelpVisible = True
 
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
 
    Try
      Dim l_Control As Control
 
      l_Control = CType(m_CollectionForm.Controls( _
        Const_AddButtonIndex0).Controls(Const_AddButtonIndex1).Controls( _
        Const_AddButtonIndex2), Control)
      ' Neuen Texte setzen
      For i As Integer = 0 To l_Control.ContextMenuStrip.Items.Count - 1
        l_Control.ContextMenuStrip.Items(i).Text = Me.m_AddButtonText(i)
      Next
 
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
 
    ' Suche nach den einzelnen Controls im Editor
    'For Each l_Ctl As Control In m_CollectionForm.Controls(0).Controls( 
    ' 1).Controls
    '  MessageBox.Show(l_Ctl.GetType.FullName & vbCrLf & _
    '                  l_Ctl.Name & vbCrLf & _
    '                  m_CollectionForm.Controls(0).Controls( 
    ' 1).Controls.IndexOf(l_Ctl))
    '  Dim l_Form As New Form
    '  Dim l_PropGrid As New PropertyGrid
    '  l_Form.Controls.Add(l_PropGrid)
    '  l_PropGrid.Dock = DockStyle.Fill
    '  l_PropGrid.SelectedObject = l_Ctl
    '  l_Form.ShowDialog()
    'Next
 
    Return m_CollectionForm
  End Function