Public Sub ConnectPage()
'...
Dim pagination As ABMPagination
pagination.Initialize(page, "pagination", 10, True, True, "")
page.Cell(2, 1).AddComponent(pagination)
Dim btnRemoveSort As ABMButton
btnRemoveSort.InitializeFloating(page, "btnRemoveSort", "mdi-action-highlight-remove", "transparent")'ABM.ICONALIGN_CENTER
Dim table As ABMTable
table.Initialize(page, "tblElements", True, True, True, "tbl")
table.SetHeaders (Array As Object ("ID", btnRemoveSort, "Codice", "Descrizione", "Note", "", "" ))
table.SetHeaderThemes (Array As String ("headTheme", "headTheme", "headTheme", "headTheme", "headTheme", "headTheme", "headTheme" ))
table.SetHeaderHeights (Array As Int (50, 50, 50, 50, 50, 50, 50 ))
table.SetColumnVisible (Array As Boolean (False, True, True, True, True, True, True ))
table.SetColumnSortable (Array As Boolean (False, False, True, True, False, False, False ))
table.SetColumnDataFields (Array As String ("", "", "codice", "descrizione", "", "", "" ))
table.SetColumnWidths (Array As Int (0, 1, 250, 0, 0, 0, 0 ))
table.IsBordered = True
page.Cell(3, 1).AddComponent(table)
LoadTable("", 1)
'...
End Sub