Místní nabídka sestrojená v kódu

Místní nabídku můžete také celou sestrojit z kódu, aniž na podnos formuláře umístíte instanci komponenty
ContextMenu. Například:
Dim ContextMenu2 As New ContextMenu()
' Přiřazení místní nabídky formuláři:
Me.ContextMenu = ContextMenu2
' Vytvoření prvků nabídky:
Dim cmnu2ItemZvuky As New MenuItem()
Dim cmnu2ItemOddělovač1 As New MenuItem()
Dim cmnu2ItemPokračovat As New MenuItem()
Dim cmnu2ItemKonec As New MenuItem()
' Přiřazení hodnot vlastnostem prvku Blikání a zvuky:
' Text příkazu v nabídce:
cmnu2ItemZvuky.Text = "&Blikání a zvuky?"
' Bude mít zaškrtnutí:
cmnu2ItemZvuky.Checked = True
' Bude viditelný:
cmnu2ItemZvuky.Visible = True
' vytvoření oddělovací čáry:
cmnu2ItemOddělovač1.Text = "-"
cmnu2ItemOddělovač1.Visible = True
' Přiřazení hodnot vlastnostem prvků Pokračovat a Konec:
cmnu2ItemPokračovat.Text = "&Pokračovat"
cmnu2ItemPokračovat.Visible = True
cmnu2ItemKonec.Text = "&Konec"
cmnu2ItemKonec.Visible = True
' Přiřazení klávesové zkratky:
cmnu2ItemPokračovat.Shortcut = System.WinForms.Shortcut.CtrlP
cmnu2ItemKonec.Shortcut = System.WinForms.Shortcut.AltF4
' Přidání prvků do kolekce MenuItems:
ContextMenu2.MenuItems.Add(cmnu2ItemZvuky)
ContextMenu2.MenuItems.Add(cmnu2ItemOddělovač1)
ContextMenu2.MenuItems.Add(cmnu2ItemPokračovat)
ContextMenu2.MenuItems.Add(cmnu2ItemKonec)