Dim p As B4XView = XUI.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 100%x, 500%y)
p.LoadLayout("layout_orc_pedido_parte1")
clvOrcamentoPedido.Add(p, "teste")
'EXTRA
Dim p3 As B4XView = XUI.CreatePanel("")
p3.SetLayoutAnimated(0, 0, 0, 100%x, 0.5%y)
p3.LoadLayout("layout_orc_pedido_parte2")
' p3.Tag = clvExtrasOrc 'must set the Panel tag like this <--- this is for B4A CLVNested, not needed in B4I
clvOrcamentoPedido.Add(p3, "nada")
Log("size clvOrcamentoPedido3: "&clvOrcamentoPedido.Size)
clvOrcamentoPedido.ResizeItem(1, clvExtrasOrc.AsView.Height)
Dim p4 As B4XView = XUI.CreatePanel("")
p4.SetLayoutAnimated(0, 0, 0, 100%x, 100%y)
p4.LoadLayout("layout_orc_pedido_parte3")
p4.SetLayoutAnimated(0, 0, 0, 100%x, lblVoltarOrc.Top + lblVoltarOrc.Height + 3%y)
clvOrcamentoPedido.Add(p4, "nada")