Bug? xcustomlistview 1.71 crash when resizeItem in 9.0 pie

Sub Search_QueryChanged(Query As String)
    Try
 
 

        'CargadadosPendentsFast
        If Query<>"" Then
            For i=0 To CLV3XCUS.Size-1
       
                Dim p As Panel = CLV3XCUS.GetPanel(i)
                If p.Tag<>"fecha" Then
                    Dim cd As AveriaData = CLV3XCUS.GetValue(i)
 
                    If cd.L_coment.Contains(Query.ToLowerCase) Or cd.L_coment.Contains(Query.ToUpperCase) Then
                        If p.Height=0 Then
                            CLV3XCUS.ResizeItem(i,valu)
                        End If
                        Log(valu)
               
                    else If cd.L_Averia.Contains(Query.ToLowerCase) Or cd.L_Averia.Contains(Query.ToUpperCase) Then
                        If p.Height=0 Then
                            CLV3XCUS.ResizeItem(i,valu)
                        End If
                        Log(valu)
               
                    else If cd.L_NumAveria.Contains(Query.ToLowerCase) Or cd.L_NumAveria.Contains(Query.ToUpperCase) Then
                        If p.Height=0 Then
                            CLV3XCUS.ResizeItem(i,valu)
                        End If
                        Log(valu)
               
                    else If cd.L_nomCruce.Contains(Query.ToLowerCase) Or cd.L_nomCruce.Contains(Query.ToUpperCase) Then
                        If p.Height=0 Then
                            CLV3XCUS.ResizeItem(i,valu)
                        End If
                        Log(valu)
               
                    else If cd.L_NumCruce.Contains(Query.ToLowerCase) Or cd.L_NumCruce.Contains(Query.ToUpperCase) Then
                        If p.Height=0 Then
                            CLV3XCUS.ResizeItem(i,valu)
                        End If
                        Log(valu)
               
                    Else
           
                        If p.Height>0 Then
                            CLV3XCUS.ResizeItem(i,0)'---> CRASH
                        End If
   
   
                    End If
       
                End If
       
 
            Next
 
            Log(Query)
            Else
           
            For i=0 To CLV3XCUS.Size-1
       
                Dim p As Panel = CLV3XCUS.GetPanel(i)
                If p.Tag<>"fecha" Then
                    If p.Height=0 Then
                    CLV3XCUS.ResizeItem(i,valu)
                    End If
                End If
            Next
        End If
    Catch
        Log(LastException)
    End Try
    Log(Query)
End Sub

Private Sub InsertAtImpl(Index As Int, Pnl As B4XView, ItemSize As Int, Value As Object, InitialSize As Int)
    'create another panel to handle the click event
    Dim p As B4XView = CreatePanel("Panel")
    p.Color = Pnl.Color
    Pnl.Color = xui.Color_Transparent
    If horizontal Then
        p.AddView(Pnl, 0, 0, ItemSize, sv.ScrollViewContentHeight)
    Else
        p.AddView(Pnl, 0, 0, sv.ScrollViewContentWidth, ItemSize)
    End If
    p.Tag = Index
    Dim IncludeDividierHeight As Int
    If InitialSize = 0 Then IncludeDividierHeight = mDividerSize Else IncludeDividierHeight = 0
    Dim NewItem As CLVItem
    NewItem.Panel = p
    NewItem.Size = ItemSize
    NewItem.Value = Value
    NewItem.Color = p.Color
    If Index = items.Size And InitialSize = 0 Then
        items.Add(NewItem)
        Dim offset As Int
        If Index = 0 Then
            offset = mDividerSize
        Else
            offset = GetScrollViewContentSize
        End If
        NewItem.Offset = offset
        If horizontal Then
            sv.ScrollViewInnerPanel.AddView(p, offset, 0, ItemSize, sv.Height)
        Else
            sv.ScrollViewInnerPanel.AddView(p, 0, offset, sv.Width, ItemSize)
        End If
    Else
        Dim offset As Int
        If Index = 0 Then
            offset = mDividerSize
        Else
            Dim PrevItem As CLVItem = items.Get(Index - 1)
            offset = PrevItem.Offset + PrevItem.Size + mDividerSize
        End If
        For i = Index To items.Size - 1
            Dim It As CLVItem = items.Get(i)
            Dim NewOffset As Int = It.Offset + ItemSize - InitialSize + IncludeDividierHeight
            If Min(NewOffset, It.Offset) - GetScrollViewOffset < GetScrollViewVisibleSize Then
                It.Offset = NewOffset
                If horizontal Then
                    It.Panel.SetLayoutAnimated(AnimationDuration, NewOffset, 0, It.Size, It.Panel.Height)
                Else
                    It.Panel.SetLayoutAnimated(AnimationDuration, 0, NewOffset, It.Panel.Width, It.Size)
                End If
            Else
                SetItemOffset(It, NewOffset)
            End If
            It.Panel.Tag = i + 1
        Next
        items.InsertAt(Index, NewItem)
        NewItem.Offset = offset
        If horizontal Then
            sv.ScrollViewInnerPanel.AddView(p, offset, 0, InitialSize, sv.Height)
            p.SetLayoutAnimated(AnimationDuration, offset, 0, ItemSize, p.Height)
        Else
            sv.ScrollViewInnerPanel.AddView(p, 0, offset, sv.Width, InitialSize)
            p.SetLayoutAnimated(AnimationDuration, 0, offset, p.Width, ItemSize) ''->>> CRASH ITEMSIZE=0
        End If
    End If
    SetScrollViewContentSize(GetScrollViewContentSize + ItemSize - InitialSize + IncludeDividierHeight)
    If items.Size = 1 And Index = 0 Then SetScrollViewContentSize(ItemSize + mDividerSize * 2)
    If Index < mLastVisibleIndex Or GetRawListItem(mLastVisibleIndex).Offset + _
            GetRawListItem(mLastVisibleIndex).Size + mDividerSize < GetScrollViewVisibleSize Then
        UpdateVisibleRange
    End If
End Sub