Sub CrearItemChk(Text As String, Index As Int, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("cellPuntosChk")
LbPuntoChk.Text = Text
BtCamera.Tag = Index
Log(BtCamera.Tag)
Return p
End Sub