lstItems.Initialize
Dim cs As CSBuilder
lstItems.AddAll(Array As Object(cs.Initialize.Alignment("ALIGN_CENTER").Color(xui.Color_Red).Append("Paris").PopAll, _
cs.Initialize.Alignment("ALIGN_CENTER").Color(xui.Color_Magenta).Append("Lisbonne").popall, _
cs.Initialize.Alignment("ALIGN_CENTER").Color(Colors.White).BackgroundColor(Colors.red).Append("Madrid").PopALL))
B4XComboBox2.SetItems(lstItems)