Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mnu As New MenuItem("MenuTest")
Me.Menu.MenuItems.Add(mnu)
AddHandler mnu.Click, AddressOf MenuClick
End Sub
Private Sub MenuClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
Dim mnu As MenuItem = sender
Me.Text = mnu.Text
End Sub