Android Question Scroll one position Customlistview

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