Dim tbl1 As ABMTable
tbl1.Initialize(page, "tbl1", False, False, True, "tbl1theme")
tbl1.SetHeaders(Array As String("Product", "Color", "Tgl", "Qta", "Del"))
tbl1.SetHeaderThemes(Array As String("headerfooter", "headerfooter", "headerfooter", "headerfooter", "headerfooter"))
tbl1.IsScrollable = True
tbl1.IsBordered = True
tbl1.SetColumnWidths(Array As Int(240, 200, 100, 100, 200))
myModalCar.Content.Cell(2,1).SetFixedHeight(250, True)
myModalCar.Content.Cell(2,1).AddComponent(tbl1)