Private Sub lstSublist_ItemClick (Index As Int, Value As Object)
Dim ix As Int = lstPrincipal.GetItemFromView(Sender.As(CustomListView).AsView)
lstPrincipal_ItemClick (ix,lstPrincipal.GetValue(ix))
End Sub
Private Sub lstPrincipal_ItemClick (Index As Int, Value As Object)
Dim miFichas As cFichas
miFichas.Initialize(Me)
miFichas.Mostrar(Root,Value)
End Sub