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("layoutlist")
itmlbl.Text = text
itmimage.Bitmap = LoadBitmap(File.DirAssets, "icon22.png")
Return p
End Sub