Sub CreateItemx( Width As Int, Height As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("bis") '<----------------missing ?!?!?!?!?!?!
p.SetLayoutAnimated(0, 0, 0, Width, Pannello.Height)
Return p
End Sub