temur » 30.03.2005 (Ср) 4:30
Может стоит попробовать создать элемент меню налету?
Процедура определяющая действие элемента
Friend Sub MenuItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs))
выводит Text элемента
MsgBox(CType(sender, MenuItem).Text)
End Sub
Добавление элемента
MainMenu1.MenuItems(0).Add("VBStreets" , New EventHandler(AddressOf MenuItemClick)
Или если нужно установить какие-то параметры для данного элемента сделай так
Dim itm As New MenuItem("VBStreets" , New EventHandler(AddressOf MenuItemClick)
itm.Checked = True
MainMenu1.MenuItems(0).Add(itm)