Sub CreateMenuList (MenuIcon As String, MenuName As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayoutAnimated(0, 0.1, 0, 0, Width, Height)
p.LoadLayout("menu_item")
Controls.SetGradient(lblMenuIcon, Variables.LabelGradientColor1, Variables.LabelGradientColor2)
lblMenuIcon.Font = XUI.CreateFontAwesome(12)
lblMenuIcon.Text = MenuIcon
lblMenuName.Text = MenuName
Return p
End Sub
private sub CreateMenuListItems
CustomListView1.Add(CreateMenuList(Chr(0xF029), "Menu1", CustomListView1.AsView.Width, 60dip), 0)
End sub