clvContent.Add(CreateListItem(lstGameBitmaps.Get(0),"Westernpiano", "", "", 0), "game1") 'Panel and Value
Sub CreateListItem(btm As Bitmap, header As String, info As String, footer As String, score As Int) As Panel
Dim p As B4XView = xui.CreatePanel("") 'Dim p As Panel
p.SetLayoutAnimated(0, 0, 0, clvContent.AsView.Width, 200dip)
p.LoadLayout("viewItemGame")
imgItemTyp.SetBitmap(btm)
lblItemHeader.Text = header
lblItemInfo.Text = info
lblItemFooter.Text = footer
lblScore.Text = score
Return p
End Sub