Sub ImageSlider1_GetImage (Index As Int) As ResumableSub
Dim slider As ImageSlider = Sender
Dim IndexInList As Int = slider.Tag
Dim si As SliderAndImages = CustomListView1.GetValue(IndexInList)
Dim bmp As B4XBitmap = si.Images.Get(Index)
Return bmp
End Sub