iOS Question ScrollToItem when use PreoptimizedCLV

Private Sub Button1_Click
    CustomListView1.JumpToItem(1000)
End Sub

Sub load
    For i=0 To list1.Size-1
        PCLV.AddItem(200dip, xui.Color_Transparent, i)
    Next
    PCLV.Commit
End Sub

Sub recy_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
        Dim item As CLVItem = recy.GetRawListItem(i)
        Dim pnl As B4XView = xui.CreatePanel("")
        'Create the item layout
        Dim height As Int = CreateItem(pnl,item.Value)
        'Create height
        item.Panel.AddView(pnl,0,0,Page1.RootPanel.Width,height)
        recy.ResizeItem(item.Value,height)
        'Create finish
    Next
End Sub

recy.ResizeItem(item.Value,height)