Dim instance As Std = New Std()

instance.AddInMenuRemove()

'Stdクラス AddInMenuRemoveプロパティ

Imports System.Windows.Forms

Public Class AddIn

	Private std As Std
	Private tsbAdd As ToolStripButton
	Private tsbRem As ToolStripButton
	Private tsl As ToolStripLabel

	Public Sub New()
		std = New Std()
	End Sub

	Public Sub AddIn_Start()
		tsbuttonAdd()
		tsbuttonRem()
		tss()
		AddHandler tsbAdd.Click, AddressOf tsbAdd_Click
		AddHandler tsbRem.Click, AddressOf tsbRem_Click
	End Sub

    ''' 

    ''' Addと言う名前のボタンを追加します。
    ''' 
    Private Sub tsbuttonAdd()
        tsbAdd = New ToolStripButton("Add")
        std.AddInMenuAddOnce(tsbAdd)
    End Sub

    ''' 

    ''' Remと言う名前のボタンを追加します。
    ''' 
    Private Sub tsbuttonRem()
        tsbRem = New ToolStripButton("Rem")
        std.AddInMenuAddOnce(tsbRem)
    End Sub

    ''' 

    ''' セパレーターを追加します。
    ''' 
    Private Sub tss()
        Dim tss As ToolStripSeparator = New ToolStripSeparator()
        tss.AutoSize = True
        std.AddInMenuAddOnce(tss)
    End Sub

    ''' 

    ''' メニューにラベルを追加します。
    ''' 
	Private Sub tsbAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
		tsl = New ToolStripLabel
		tsl.Text = "ラベル"
        std.AddInMenuAdd(tsl)
	End Sub

    ''' 

    ''' ユーザーメニューを全て削除します。
    ''' 
	Private Sub tsbRem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
		RemoveHandler tsbAdd.Click, AddressOf tsbAdd_Click
		RemoveHandler tsbRem.Click, AddressOf tsbRem_Click
        std.AddInMenuRemove()
	End Sub

End Class