Dim lstItems As List
lstItems.Initialize
lstItems.AddAll(Array As String("Pretoria", "Johannesburg", "Durban"))
Dim cs As CSBuilder
Dim l2 As List
l2.Initialize
For i =0 To lstItems.Size -1
l2.Add(cs.Initialize.size(32).Typeface(Typeface.DEFAULT_BOLD).Append(lstItems.Get(i)).PopAll)
Next
B4XComboBox1.SetItems(l2)