Sub add_menuitem(inp_ico As String , inp_text As String , inp_obj As Panel )
Dim item_menu, x As Panel
Dim item_lbl_obj As Label
Dim item_img As ImageView
item_menu.Initialize("item_menu")
item_menu.LoadLayout("item_menu")
item_menu.Height = inp_height
x = item_menu.GetView(0)
'======= icon
item_img = x.GetView(0)
AjustaImageView(item_img,File.DirAssets,inp_ico)
'======= text
item_lbl_obj = x.GetView(1)
item_lbl_obj.Text = inp_text
inp_obj.AddView(item_menu, 0dip, inp_obj.height, inp_width ,inp_height)
inp_obj.Height = inp_obj.Height + item_menu.Height
End Sub