'adding container
Dim cont1 As ABMContainer
cont1.Initialize(page, "cont1", "")
cont1.AddRowsM(3,False,0,0,"").AddCellsOS(6,0,0,0,1,1,2,"")
cont1.BuildGrid
cont1.Cell(1,1).UseTheme("xxx")
Dim img1 As ABMImage
img1.Initialize(page,"id11","../images/icon1.png",100.0)
img1.Caption="Num.1"
img1.Tag=1
img1.IsResponsive=False
cont1.Cell(1,1).AddArrayComponent(img1,"myimg")
......
Sub myimg_clicked(Target As String)
Log(Target)
Dim img As ABMImage = page.Component(Target)
Dim title As String = img.Caption
page.ShowToast("toast1", "toastgreen", "Clicked " & title, 5000)
End Sub