Dim sbtopcont As ABMContainer
sbtopcont.Initialize(page, "sbtopcont", "")
sbtopcont.AddRowsM(1, True, 0,0,"").AddCells12MP(1,0,-19,0,0, "")
sbtopcont.AddRowsM(1, True, 0,10,"").AddCells12(1, "")
sbtopcont.BuildGrid
Dim sbtopimg As ABMImage
sbtopimg.Initialize(page, "sbtopimg", logo, 1)
Dim tmpLogo As String = logo.Replace("../images/logo", "").Replace(".png", "")
Dim spl() As String
spl = Regex.Split("x", tmpLogo)
Dim logoX As Int = spl(0)
Dim logoY As Int = spl(1)
sbtopimg.SetFixedSize(logoX, logoY)
sbtopcont.Cell(1,1).AddComponent(sbtopimg)
Dim lblLoggedIn As ABMLabel
lblLoggedIn.Initialize(page, "lblLoggedIn", "{NBSP}", ABM.SIZE_H6, False, "centerWhite")
lblLoggedIn.Clickable = True
sbtopcont.Cell(2,1).AddComponent(lblLoggedIn)
logoY = logoY + 30
page.NavigationBar.Initialize(page, "nav1", ABM.SIDEBAR_MANUAL_HIDEMEDIUMSMALL, Title, True, True, 300, 48, sbtopcont, ABM.COLLAPSE_ACCORDION, "onetwo")
page.NavigationBar.TopBarHeightPx = 56
page.NavigationBar.SideBarLogoHeight = logoY
page.NavigationBar.ActiveTopReturnName = ActiveTopReturnName
page.NavigationBar.ActiveSideReturnName = ActiveSideReturnName
page.NavigationBar.ActiveSideSubReturnName = ActiveSideSubReturnName
page.NavigationBar.IsTextSelectable = False
page.NavigationBar.SideBarSubItemsArrowAlignRight = True