Sub ULV_CellClick(RowID As Long, CellIndex As Byte, Position As Int, ClickedPanel As Panel)
Dim ImgIdx As Int = Position * NB_COL + CellIndex
Log("ImgIndex = " & ImgIdx)
ToastMessageShow(ListImg.Get(ImgIdx), False)
Dim over As Panel
over.Initialize("over")
Activity.AddView(over,0,0,100%x,100%y)
over.SetBackgroundImage(LoadBitmap(File.DirAssets,ListImg.Get(ImgIdx)))
End Sub
Sub over_Click
Dim s As Panel=Sender
s.RemoveView
End Sub