Code:
Private Sub AddNewDrawerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddNewDrawerToolStripMenuItem.Click
Dim Title As String = InputBox("Enter a title for your new drawer.")
Dim NewDrawer As ToolStripMenuItem = New ToolStripMenuItem(My.Resources.DrawersPNG) With {.Text = Title}
Dim AddBtn As ToolStripMenuItem = New ToolStripMenuItem(My.Resources.Add) With {.Text = "Add Shortcut"}
AddHandler AddBtn.Click, AddressOf AddBtn_Click
NewDrawer.DropDownItems.Add(AddBtn)
MenuStrip1.Items.Add(NewDrawer)
End SubAny ideas?
What I have tried:
I tried adding a new variable
Code:
Private WithEvents MyMenu as new MenuStripCode:
MyMenu = Menu1Then, of course, replacing MenuStrip1 in the above code to MyMenu.
Same result.