Private Sub CreateItem(Width As Int, i As Int, content As String ) As Panel
Dim p As B4XView = xui.CreatePanel("")
Dim height As Int = 20dip
If GetDeviceLayoutValues.ApproximateScreenSize < 4.5 Then height = 30dip
p.SetLayoutAnimated(0, 0, 0, Width, height)
p.LoadLayout("ci00")
Return p
End Sub