Dim maxn As Int = 5
For i = 0 To 5
Dim p As Panel
p.Initialize("")
p.color = Colors.ARGB(255,235,235,235)
clv.Add(p, 71dip, "test")
p.LoadLayout("clv_layout")
For k = 0 To maxn -1
Dim g As Int = i*5+k
img_ornnament1.Bitmap = LoadBitmapSample(File.DirAssets, "img_s/"& g&"_image.png", 30, 30)
img_ornnament2.Bitmap = LoadBitmapSample(File.DirAssets, "img_s/"& g&"_image.png", 30, 30)
img_ornnament3.Bitmap = LoadBitmapSample(File.DirAssets, "img_s/"& g&"_image.png", 30, 30)
img_ornnament4.Bitmap = LoadBitmapSample(File.DirAssets, "img_s/"& g&"_image.png", 30, 30)
img_ornnament5.Bitmap = LoadBitmapSample(File.DirAssets, "img_s/"& g&"_image.png", 30, 30)
Next
Log("five blocks")
Next