Menu - Creazione dinamica Menu

....
'Add File Menu

Dim miFile As MenuItem = mainMenu.MenuItems.Add("&File")
miFile.MenuItems.Add(new MenuItem("&Open...", new EventHandler(AddressOf Me.FileOpen_Clicked)))
miFile.MenuItems.Add("-") ' Gives us a seperator
miFile.MenuItems.Add(new MenuItem("E&xit", new EventHandler(AddressOf Me.FileExit_Clicked)))
....

'File->Exit Menu item handler

Private Sub FileExit_Clicked(sender As object, e As System.EventArgs)
Me.Close
End Sub

'File->Open Menu item handler

Private Sub FileOpen_Clicked(sender As object, e As System.EventArgs)
MessageBox.Show("And why would this open a file?")
End Sub

....