myForm = VCL.Form("myForm")

local submenu2 = {
	{name="mm1",caption="File",checked = "true",},
	{name="mm2",caption="Options",},
	{name="mm3",caption="Plugins",},
	{name="mm4",caption="Setup",enabled = "false", },
	{name="mm5",caption="Help"},	
}

local submenu1 = {
	{name="mm1",caption="File",},
	{name="mm2",caption="Options",},
	{name="mm3",caption="Plugins",},
	{name="mm4",caption="Setup",enabled = "false", },
	{name="mm5",caption="Help", submenu=submenu2},	
}

local mainmenu = {
	{name="mm1",caption="File", submenu=submenu1},
	{name="mm2",caption="Options",},
	{name="mm3",caption="Plugins",},
	{name="mm4",caption="Setup",enabled = "false"},
	{name="mm5",caption="Help",},	
}

local myMenu = VCL.MainMenu(myForm,"myMenu")

myMenu:Load(mainmenu)

local mi = myMenu:Find("File")
mi:Find("Plugins").checked = "true"

local myPopup = VCL.PopupMenu(myForm,"myPopup")
myPopup:Load(submenu2)
myForm.onMouseDown = "onMouseDown"
function onMouseDown(Sender, Button, Shift, X, Y)
	if myPopup then
		myPopup:Popup(Sender.Top+X,Sender.Left+Y)
	end
end