Android Question How to Determine the Index of the closest Item to the Center of an xClv

Sub xclv_ScrollChanged (Offset As Int)
    ScrollChangedIndex = ScrollChangedIndex + 1
    Dim MyIndex As Int = ScrollChangedIndex
    If ScrollChangedIndex = MyIndex Then
        Log("Center: " & CenterIndex)
    End If    
End Sub

Private Sub CustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    LastCenterIndex = (FirstIndex + LastIndex) / 2
End Sub

Private Sub CustomListView1_ScrollChanged (Offset As Int)
    ScrollChangedIndex = ScrollChangedIndex + 1
    Dim MyIndex As Int = ScrollChangedIndex
    Sleep(300)
    If MyIndex = ScrollChangedIndex Then
        Log(LastCenterIndex)
    End If
End Sub

Private Sub CLV1_ScrollChanged (Offset As Int)
    ScrollChangedIndex = ScrollChangedIndex + 1
    Dim MyIndex As Int = ScrollChangedIndex
'    snap.ScrollChanged(Offset)    
    Sleep(300)
    If MyIndex = ScrollChangedIndex Then
        Log(CenterIndex)
        Dim ppp As B4XView  =clv1.GetPanel(CenterIndex)
        Dim lbl As B4XView = ppp.GetView(0).GetView(0)
        lbl.SetColorAndBorder(xui.Color_Yellow, 5dip, xui.Color_Black, 5dip)
    End If
End Sub

Private Sub LoadCLV
    For i = 0 To 99
        CustomListView1.AddTextItem("Item " & i, "")
    Next
    Log(Floor((CustomListView1.FirstVisibleIndex + CustomListView1.LastVisibleIndex) / 2))
End Sub

Private Sub CustomListView1_ScrollChanged (Offset As Int)
    ScrollChangedIndex = ScrollChangedIndex + 1
    Dim MyIndex As Int = ScrollChangedIndex
    Sleep(500)
    If MyIndex = ScrollChangedIndex Then
        If SnapBusy Then                    'SnapBusy is Global
            Log(Floor((CustomListView1.FirstVisibleIndex + CustomListView1.LastVisibleIndex) / 2))
            SnapBusy = False
        Else
            SnapBusy = True
            SnapCLV(Offset)
        End If
    End If
End Sub

Private Sub SnapCLV (Offset As Int)
    Dim i As Int = CustomListView1.FirstVisibleIndex
    If i < 0 Or (Offset + CustomListView1.sv.Height >= CustomListView1.sv.ScrollViewContentHeight) Then
        CustomListView1_ScrollChanged(Offset)
        Return
    End If
    Dim item As CLVItem     = CustomListView1.GetRawListItem(i)
    Dim visiblepart As Int = item.Offset + item.Size - Offset
    If visiblepart / item.Size > 0.5 Then CustomListView1.ScrollToItem(i) Else CustomListView1.ScrollToItem(i + 1)
End Sub