Metodou Add přidejte prvky první rozvírací nabídky do kolekce MenuItems objektu menu2Akce:
mnu2Akce.MenuItems.Add(mnu2ItemRoztočit)
mnu2Akce.MenuItems.Add(mnu2ItemVypsatStav)
mnu2Akce.MenuItems.Add(mnu2ItemDodatPrachy)
mnu2Akce.MenuItems.Add(mnu2ItemOddělovač1)
mnu2Akce.MenuItems.Add(mnu2ItemKonec)
9. Obdobně zpracujte druhou a třetí nabídku v pruhu nabídek:
' Nabídka Přizpůsobit:
Dim mnu2ItemPozadíFormuláře As New MenuItem()
Dim mnu2ItemVelikostPísma As New MenuItem()
mnu2ItemPozadíFormuláře.Text = "Pozadí &formuláře"
mnu2ItemVelikostPísma.Text = "V&elikost písma"
mnu2Přizpůsobit.MenuItems.Add(mnu2ItemPozadíFormuláře)
mnu2Přizpůsobit.MenuItems.Add(mnu2ItemVelikostPísma)
' Nabídka Nápověda:
Dim mnu2ItemObsah As New MenuItem()
Dim mnu2ItemOAplikaci As New MenuItem()
mnu2ItemObsah.Text = "&Obsah"
mnu2ItemOAplikaci.Text = "&Informace o aplikaci"
mnu2Nápověda.MenuItems.Add(mnu2ItemObsah)
mnu2Nápověda.MenuItems.Add(mnu2ItemOAplikaci)