Sub CreateListItem(sideColor As Int, Text1 As String, Text2 As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayoutAnimated(0, 1, 0, 0, Width, Height)
p.LoadLayout("eload_cell_items")
pSideCard.Color = sideColor
lblText.Text = $"${Text1.SubString2(0, 1).ToUpperCase}${Text1.SubString2(1, Text1.Length)}"$
lblText2.Text = Text2
Return p
End Sub