Sub ListItemImageTitleDescription(page as ABMPage, id As String, image As String, Title As String, Subtitle As String, TitleTheme As String, DescriptionTheme As String, bIsCircular As Boolean, ContainerTheme as string) As ABMContainer
Dim ItemCont As ABMContainer
ItemCont.Initialize(page, id, ContainerTheme )
ItemCont.AddRowsM(1,False,6,0, "").AddCellsOSMP(1,0,0,0,3,2,2,0,0,16,0,"").AddCellsOS(1,0,0,0,9,10,10,"")
ItemCont.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
Dim SubItemCont As ABMContainer
SubItemCont.Initialize(page, id & "SubItemCont", ContainerTheme )
SubItemCont.AddRowsM(1,False, 0,0,"").AddCells12MP(1,-6,0,0,0,"").AddCells12(1,"")
SubItemCont.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
ItemCont.Cell(1,2).AddComponent(SubItemCont)
Dim img As ABMImage
img.Initialize(page, id & "img", image, 1)
img.SetFixedSize(48,48)
img.IsCircular = bIsCircular
img.IsResponsive = True
ItemCont.Cell(1,1).AddComponent(img)
Dim lbl1 As ABMLabel
lbl1.Initialize(page, id & "lbl1", Title, ABM.SIZE_H6, False, TitleTheme)
lbl1.VerticalAlign = True
SubItemCont.Cell(1,1).AddComponent(lbl1)
Dim lbl2 As ABMLabel
lbl2.Initialize(page, id & "lbl2", Subtitle, ABM.SIZE_H6, False, DescriptionTheme)
lbl2.VerticalAlign = True
SubItemCont.Cell(1,2).AddComponent(lbl2)
Return ItemCont
End Sub