VB.Net - eigenes Control mit Smart Tags

Public Class MyPanel
  Inherits System.Windows.Forms.Panel

End Class

Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design
Imports System.ComponentModel

<System.ComponentModel.Designer(GetType(MyPanelDesigner))> _
Public Class MyPanel
  Inherits System.Windows.Forms.Panel

End Class

Public Class MyPanelDesigner
  Inherits ControlDesigner

End Class

Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design
Imports System.ComponentModel
Imports System.Drawing

<System.ComponentModel.Designer(GetType(MyPanelDesigner))> _
Public Class MyPanel
  Inherits System.Windows.Forms.Panel

End Class

Public Class MyPanelDesigner
  Inherits ControlDesigner

 Private mActionListCollection As DesignerActionListCollection = Nothing

  Public Overrides ReadOnly Property ActionLists() As System.ComponentModel.Design.DesignerActionListCollection
    Get
      If mActionListCollection Is Nothing Then
        mActionListCollection = New DesignerActionListCollection()
        mActionListCollection.Add(New MyPanelActionList(Me.Control))
      End If

      Return mActionListCollection
    End Get
  End Property
End Class

Friend Class MyPanelActionList
  Inherits DesignerActionList

  Private mDesignerActionService As DesignerActionUIService = Nothing
  Private mMyPanel As MyPanel = Nothing

  Public Sub New(ByVal component As IComponent)
    MyBase.New(component)

    mMyPanel  = DirectCast(component, MyPanel )
    mDesignerActionService = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
  End Sub

  Public Property PanelBackColor() As Color
    Get
      Return mMyPanel.BackColor
    End Get
    Set(ByVal Value As Color)
      mMyPanel.BackColor = Value
    End Set
  End Property

  Public Overrides Function GetSortedActionItems() As DesignerActionItemCollection
    Dim µItems As New DesignerActionItemCollection

    µItems.Add(New DesignerActionHeaderItem("Panel"))  

    µItems.Add(New DesignerActionPropertyItem("PanelBackColor", "Hintergrundfarbe", "Panel", "Liefert die Hintergrundfarbe des Panels oder legt diese fest."))  

    Return µItems
  End Function

End Class