Vb.Net Kod ile Menü ve Alt Menüler Oluşturma

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Ana menü çubuğunu tanımlama
        Dim mnuBar As New MainMenu()

        'Ana menü çubuğu için menü öğelerini tanımlama
        Dim menuItemDosya As New MenuItem("&Dosya")
        Dim menuItemDuzen As New MenuItem("Düz&en")
        Dim menuItemGorunum As New MenuItem("&Görünüm")
        Dim menuItemProje As New MenuItem("&Proje")

        'Menü öğelerini ana menü çubuğuna ekleme
        mnuBar.MenuItems.Add(menuItemDosya)
        mnuBar.MenuItems.Add(menuItemDuzen)
        mnuBar.MenuItems.Add(menuItemGorunum)
        mnuBar.MenuItems.Add(menuItemProje)

        'Alt menüleri tanımlama
        Dim menuItemYeni As New MenuItem("&Yeni")
        Dim menuItemAc As New MenuItem("&Aç")
        Dim menuItemKaydet As New MenuItem("&Kaydet")

        'Dosya menüsüne alt menüler ekleme
        menuItemDosya.MenuItems.Add(menuItemYeni)
        menuItemDosya.MenuItems.Add(menuItemAc)
        menuItemDosya.MenuItems.Add(menuItemKaydet)

        'Ana menüyü forma ekle
        Me.Menu = mnuBar
    End Sub
End Class