Private options As B4XListTemplate
options.Initialize
options.Options = Array("klaus", "manfred", "erel", "peter", "mangojack", "johan", "makis")
options.CustomListView1.DefaultTextColor = XUI.Color_Yellow
Dim l As B4XView = options.CustomListView1.DesignerLabel
l.Font =XUI.CreateDefaultFont(30)