Dim listMenu1 As ABMList
listMenu1.Initialize(page, "listMenu1", ABM.COLLAPSE_EXPANDABLE, "listTheme1")
listMenu1.AddItem("M1", BuildSimpleItem("L1M1","","{NBSP}{B}Sales Summary{/B}"))
listMenu1.AddItem("M2", BuildSimpleItem("L1M2","","{NBSP}{B}Sales Trends{/B}"))
listMenu1.AddItem("M3", BuildSimpleItem("L1M3","","{NBSP}{B}Items{/B}"))
listMenu1.AddItem("M4", BuildSimpleItem("L1M3","","{NBSP}{B}Catagory Sales{/B}"))
listMenu1.AddItem("M5", BuildSimpleItem("L1M3","","{NBSP}{B}Discounts{/B}"))