Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("cellitem")
itmlbl.Text = "item1"
label1.Text = " updated data "
label2.Text = "updated results "
img1.Bitmap = LoadBitmap(File.DirAssets, "1.png")
Return p
End Sub