Sub ShowBookItems
Dim li As List = Main.cG.GetBookItems
clvBook.Clear 'CustomListView
For Each t As BookItemType In li
clvBook.Add(CreateBookItem(t), t)
Next
End Sub
Sub CreateBookItem(t As BookItemType) As B4XView
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 100%x, 90dip)
p.LoadLayout("viewItmBook")
lblItemInfo.Text = t.nr
Return p
End Sub