public Sub ConnectPage()
Dim lblData As ABMLabel
lblData.Initialize(page,"lblData","",ABM.SIZE_H5,False,"DataLabel")
page.Cell(1,1).AddComponent(lblData)
Dim atable As ABMTable
atable.Initialize(page,"atable",False, False, True,"tbltheme")
page.Cell(2,1).AddComponent(atable)
' refresh the page
page.Refresh
' Tell the browser we finished loading
page.FinishedLoading
' restoring the navigation bar position
page.RestoreNavigationBarPosition 'used to be in the depreciated Page_Ready() event!
End Sub