' create list
Dim list1 As ABMList
list1.Initialize(page, "list1", ABM.COLLAPSE_ACCORDION, "list1theme")
' add items
list1.AddItem("H1", BuildSimpleItem("L1H1","mdi-action-account-circle","Family"))
list1.AddSubItem("H1", "S1", BuildSimpleItem("L1H1S1","", "Mom"))
list1.AddSubItem("H1", "S2", BuildSimpleItem("L1H1S2","", "Dad"))
list1.AddSubItem("H1", "S3", BuildSimpleItem("L1H1S3","", "Brother"))
list1.AddSubItem("H1", "S4", BuildSimpleItem("L1H1S4","", "Sister"))