Dim COUNTRIES As List
COUNTRIES = parser.NextArray 'returns a list with maps
For i = 0 To COUNTRIES.Size - 1
' dim aa as li
Dim m As Map
m = COUNTRIES.Get(i)
pec1 = m.Get("pec1")
Buffer= su.DecodeBase64(pec1)
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Bitmap2.Initialize2(InputStream1)
InputStream1.Close
Dim cd As CardData
cd.Initialize
cd.BitmapFile = Bitmap2'bitmaps.Get((i - 1) Mod bitmaps.Size)
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, CLVShowAll.AsView.Width, 110dip)
Sleep(20)
CLVShowAll.Add(p, cd)
'CLVShowAllValue=cd.TimeCar
'Next
Next