ToolStripDropDownItem-如何正确使用？vb.Net

我正在试图弄清楚如何使用添加到toolstrip中的项。下面是我正在使用的代码，我在toolstrip中添加了两个项目“test1，test2”，但是如何选择它们并为点击事件添加代码

谢谢

Public Class MenuStripCustom
Inherits MenuStrip

Private WithEvents NavToolStrip As New ToolStripMenuItem("File")

Sub New()

    Dim tsi As New ToolStripMenuItem
    Dim tsi2 As New ToolStripDropDownButton
    Me.Items.Add(NavToolStrip)
    NavToolStrip.DropDownItems.Add("test1")
    NavToolStrip.DropDownItems.Add("test2")
End Sub

Private Sub NavToolStripDropDownButton_Click(sender As Object, e As EventArgs) Handles NavToolStrip.DropDownItemClicked
        ' What do I put here to handle different drop down items?
        ' ie. select case (dropDownItem)
        ' case: test1?
End Sub

---

End类有多种方法可以将事件处理程序添加到ToolStripMenuItem中。您可以将其地址传递给ToolStripMenuItem构造函数或使用AddHandler关键字。但是，对您来说，将ToolStripMenuItems声明为“WithEvents”可能是最简单的，这样您就可以看到这些事件并在VS IDE中将它们连接起来。例如：

Private WithEvents NavToolStrip As New ToolStripMenuItem("File")
Private WithEvents tsi As New ToolStripMenuItem("Test1")
Private WithEvents tsi2 As New ToolStripMenuItem("Test2")

Sub New()
    MenuStrip1.Items.Add(NavToolStrip)

    NavToolStrip.DropDownItems.Add(tsi)
    NavToolStrip.DropDownItems.Add(tsi2)

End Sub

Private Sub tsi_Click(sender As Object, e As EventArgs) Handles tsi.Click
    MsgBox("Test1")
End Sub

Private Sub tsi2_Click(sender As Object, e As EventArgs) Handles tsi2.Click
    MsgBox("Test2")
End Sub

---

非常感谢。我一直尝试使用“Private WithEvents下拉项”。你的例子救了我。：）