Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim mi As New MenuItem("menu")
        mi.MenuItems.AddRange(New MenuItem() { _
                                                New MenuItem("menu1", AddressOf _
                                                MenuClick, Shortcut.CtrlS), _
                                                New MenuItem("menu2", AddressOf _
                                                MenuClick, Shortcut.CtrlC), _
                                                New MenuItem("menu3", AddressOf _
                                                MenuClick, Shortcut.CtrlD), _
                                                New MenuItem("menu4", AddressOf _
                                                MenuClick, _
                                                Shortcut.CtrlShiftS), _
                                                New MenuItem("menu5", AddressOf _
                                                MenuClick, Shortcut.CtrlShiftC) _
                                                })
        Dim mm As New MainMenu
        mm.MenuItems.Add(mi)
        Me.Menu = mm
    End Sub
 
    Private Sub MenuClick(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show(sender.ToString)
    End Sub