Imports System
Imports System.ComponentModel
Imports System.Collections
Imports System.ComponentModel.Design

 '  Этот пример демонстрирует проектировщика, который добавляет команды меню 
 '   к контекстному меню компонента в режиме создания программы. 
 ' 
 '   Для тестирования этого примера,  
 '   вставьте этот код как компонент в библиотеку классов,  
 '   добавьте скомпилированный компонент в toolbox (VisualStudio), 
 '   откройте форму в режиме редактирования (разработки - DesignMode),  
 '   и поместите компонент из toolbox на форму.  
 ' 
 '   Компонент должен появиться в составляющем лотке ниже формы.  
 '   Right-click на компоненте.  Список verbs (пунктов меню)  
 '   должен появиться в контекстном меню. 

Namespace DesignVerb

     '************************************************* 
     '' Здесь должен быть код НАШЕГО КОМПОНЕНТА 
     '************************************************* 

     ' Ассоциируем MyDesigner как тип этого компонента используя DesignerAttribute 
    <Designer(GetType(MyDesigner))> _
    Public Class Component1
        Inherits System.ComponentModel.Component
    End Class

     '************************************************* 
     '' Дружественный/вспомагательный класс MyDesigner 
     '************************************************* 

     '  This is a designer class which provides designer verb menu commands for  
     '  the associated component. This code is called by the design environment at design-time.     
    Friend Class MyDesigner
        Inherits ComponentDesigner

        Private m_Verbs As DesignerVerbCollection

         ' DesignerVerbCollection is overridden from ComponentDesigner 
        Public Overrides ReadOnly Property Verbs() As DesignerVerbCollection
            Get
                If m_Verbs Is Nothing Then
                     ' Создадим и проинициализируем коллекцию в verbs 
                    m_Verbs = New DesignerVerbCollection
                    m_Verbs.Add(New DesignerVerb("Добавить элемент", New EventHandler(AddressOf OnFirstItemSelected)))
                    m_Verbs.Add(New DesignerVerb("Добавить еще что-нибудь", New EventHandler(AddressOf OnSecondItemSelected)))
                End If
                Return m_Verbs
            End Get
        End Property

        Sub New()

        End Sub

        Private Sub OnFirstItemSelected(ByVal sender As Object, ByVal args As EventArgs)
             ' Покажем сообщение по клику на пункте меню 
            System.Windows.Forms.MessageBox.Show("Это пункт меню - Добавить элемент.")
        End Sub 

        Private Sub OnSecondItemSelected(ByVal sender As Object, ByVal args As EventArgs)
             ' Покажем сообщение по клику на пункте меню 
            System.Windows.Forms.MessageBox.Show("Это пункт меню - Добавить еще что-нибудь.")
        End Sub 

    End Class
End Namespace