Dim inpactive As ABMCheckbox
inpactive.Initialize(page, "empactive", "Active", False, "")
inp.Content.CellR(0,2).MarginTop = "25px"
' inp.Content.CellR(0,2).UseTheme( " just an experiment - try a theme for this cell ")....
inp.Content.CellR(0,2).AddComponent(inpactive)
inpactive.IsFilled = True