For j = 0 To mapor.Size - 1
Dim CLI As CreateListItemClvOrders:CLI.Initialize
Dim IncomingMapnext As Map=mapor.GetValueAt(j)
CLI.maporders=IncomingMapnext
Dim xui As XUI
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(300, 0, 0, clvorders.AsView.Width, 50%y)
clvorders.Add(p, CLI)
Next