Android Question [B4X] BitmapsAsync Grid specific image click event

Sub CustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
        Dim item As CLVItem = CustomListView1.GetRawListItem(i)
        Dim pnl As B4XView = xui.CreatePanel("")
        item.Panel.AddView(pnl, 0, 0, item.Panel.Width, item.Panel.Height)
        Dim data As MyImageData = item.Value
        'Create the item layout
        pnl.LoadLayout("item")
        For x = 0 To 3
            pnl.GetView(x).GetView(1).Text = data.IndexOfFirstImage + x
            DownloadAndSetImage($"https://picsum.photos/id/${data.IndexOfFirstImage + x}/200/300.jpg"$, pnl.GetView(x).GetView(0).Tag) 'https://www.b4x.com/android/forum/threads/117992/#content
        Next
    Next
End Sub