Private Sub xCustomListView1_ScrollChanged (Offset As Int)
Dim index As Double = Round((Offset / xCustomListView1.AsView.Width) + 1)
xCustomListView1.JumpToItem(index-1)
End Sub
Private Sub xCustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
LabelIndicator.Text = $"${(LastIndex+1)}/${xCustomListView1.Size}"$
End Sub