사용자 정의 ToolStripItem에 메뉴 텍스트를 표시하는 방법은 무엇입니까?

Mainform VB.Net :

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.tsBasket = New System.Windows.Forms.ToolStrip()
        Me.tsiFruit = New System.Windows.Forms.ToolStripDropDownButton()
        Me.tsBasket.SuspendLayout()
        Me.SuspendLayout()
        '
        'tsBasket
        '
        Me.tsBasket.Dock = System.Windows.Forms.DockStyle.None
        Me.tsBasket.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
        Me.tsBasket.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsiFruit})
        Me.tsBasket.Location = New System.Drawing.Point(355, 213)
        Me.tsBasket.Name = "tsBasket"
        Me.tsBasket.Size = New System.Drawing.Size(121, 25)
        Me.tsBasket.TabIndex = 5
        '
        'tsiFruit
        '
        Me.tsiFruit.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsiFruit.Name = "tsiFruit"
        Me.tsiFruit.Size = New System.Drawing.Size(87, 22)
        Me.tsiFruit.Text = "add fruit"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(800, 450)
        Me.Controls.Add(Me.tsBasket)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.tsBasket.ResumeLayout(False)
        Me.tsBasket.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents tsBasket As ToolStrip
    Friend WithEvents tsiFruit As ToolStripDropDownButton
End Class

양식로드 :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim men As New TestTool()
    men.Text = "showmeplease"
    men.Image = Nothing
    men.NewProperty = "BO"

    Dim men2 As New TestTool()
    men2.Text = "showmeplease2"
    men2.Image = Nothing
    men2.NewProperty = "BO2"

    tsiFruit.DropDownItems.Add(men)
    tsiFruit.DropDownItems.Add(men2)
    AddHandler men.Click, AddressOf tsiType_Click
    AddHandler men2.Click, AddressOf tsiType_Click
End Sub

Private Sub tsiType_Click(sender As System.Object, e As System.EventArgs)
    Dim MenuItem As TestTool = DirectCast(sender, TestTool)
    MessageBox.Show(MenuItem.NewProperty & "  " & MenuItem.Text)
End Sub

커스텀 클래스 :

Public Class TestTool
    Inherits ToolStripItem

    Private newPropertyValue As String
    Public Property NewProperty() As String
        Get
            Return newPropertyValue
        End Get
        Set(ByVal value As String)
            newPropertyValue = value
        End Set
    End Property

    Sub New()

        ' This call is required by the designer.
        ' InitializeComponent()

    End Sub
End Class

내 사용자 정의 클래스 / Usercontrol에서 : The designer must create an instance of type 'System.Windows.Forms.ToolStripItem' but it cannot because the type is declared as abstract.그리고 메뉴 항목에 텍스트가 나타나지 않지만 클릭 이벤트가 제대로 작동합니다.

이것이 Display 값과 Member 값을 가질 수 있도록 ToolMenuStrip을 확장 (OO를 사용하여 상속)하는 올바른 방법입니까, 사용하지 않고 개체를 저장할 수 있기를 원합니다 .Tag.

편집 : 중첩 된 메뉴를 사용하려고 할 때 발생합니다.

System.InvalidCastException: 'Unable to cast object of type 'System.Windows.Forms.ToolStripMenuItem' to type 'WindowsApp1.TestTool'.'

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim men As New TestTool()
    men.Text = "showmeplease"
    men.Image = Nothing
    men.NewProperty = "BO"

    Dim men2 As New TestTool()
    men2.Text = "showmeplease2"
    men2.Image = Nothing
    men2.NewProperty = "BO2"

    tsiFruit.DropDownItems.Add(men)
    tsiFruit.DropDownItems.Add(men2)

    Dim TypeMenuItem As TestTool = men.DropDownItems.Add("hh")

    For Each mInfo As String In Moreinfo
        TypeMenuItem.DropDownItems.Add(mInfo, Nothing, AddressOf tsiType_Click)
    Next
    AddHandler men.Click, AddressOf tsiType_Click
    AddHandler men2.Click, AddressOf tsiType_Click
End Sub

Private p_Moreinfo As List(Of String)
Public Property Moreinfo() As List(Of String)
    Get

        Dim test As New List(Of String)
        test.Add("A")
        test.Add("B")
        Return test
    End Get
    Set(ByVal value As List(Of String))
        p_Moreinfo = value
    End Set
End Property