Sub clv_ScrollChanged (Offset As Int)
ScrollIndex = ScrollIndex + 1
Dim MyIndex As Int = ScrollIndex 'ScrollIndex as a global int variable
Sleep(300)
If ScrollIndex <> MyIndex Then Return
Dim VisibleIndex As Int = clv.FirstVisibleIndex
Dim RawItem As CLVItem = clv.GetRawListItem(VisibleIndex)
Dim CurrentOffset As Int = clv.sv.ScrollViewOffsetY
If CurrentOffset - RawItem.Offset > RawItem.Size / 2 Then
clv.ScrollToItem(VisibleIndex + 1)
Else
clv.ScrollToItem(VisibleIndex)
End If
End Sub