Dim items As List = Array("A","B","C")
For Each S As String In items
Dim P As B4XView = XUI.CreatePanel("")
P.Height = 25
P.LoadLayout("Testing")
For Each v As B4XView In p.GetAllViewsRecursive
Log(v)
Next
P.GetView(0).Text = items.Get(0)
P.GetView(1).Text = items.Get(1)
P.GetView(2).Text = items.Get(2)
Dim CB As ChoiceBox = P.GetView(3)
CB.Items.AddAll(Array("","a","b","c","d","e"))
Dim PB As ProgressBar = P.GetView(4)
PB.Progress=0.4
Dim CPB As CircularProgressBar = P.GetView(5) ' how??
SelectionList1.Add(P,S)
Next