How to Create Menu Control By Code in VB NET

How to Create Menu Control By Code in VB NET


Public Class CreateMenu
Dim mm As New MainMenu()
Dim WithEvents mi1 As New MenuItem()
Dim WithEvents mi2 As New MenuItem()
Dim WithEvents mi3 As New MenuItem()

Private Sub CreateMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mi1.Text = "New"
mi2.Text = "Save"
mi3.Text = "Close"
mi3.Checked = True
mi3.Shortcut = Shortcut.Alt4
mm.MenuItems.Add(mi1)
mm.MenuItems.Add(mi2)
mm.MenuItems.Add(mi3)
AddHandler mi3.Click, AddressOf MenuItem3_Clcick
Menu = mm
End Sub

Private Sub MenuItem3_Clcick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi3.Click
Application.Exit()
End Sub
End Class