Android Question CustomListView increases DividerHeight

Sub CollapseItem(index As Int, CollapsedHeight As Int)
    'clv3.ResizeItem(index, CollapsedHeight)
    clv3.ResizeItem(index, 0)
    Dim Vars As Map
    Vars.Initialize
    Vars= clv3.GetPanel(index).Tag
    Vars.Put("collapsed", True)
    clv3.GetPanel(index).Tag = Vars
 
End Sub



Sub CLV3_ItemClick (Index As Int, Value As Object)
    Dim Vars As Map
 
    For i = 0 To clv3.GetSize - 1
     
            Vars.Initialize
            Vars = clv3.GetPanel(i).Tag
            Try
             
                If Vars.Get("pedidonr") = Value Then
            
                   If Vars.Get("collapsed") = False Then
                          CollapseItem(i, Vars.Get("itemheight"))
                   Else
                        ExpandItem(i,Vars.Get("itemheight"))
                   End If
                End If
             
             
            Catch
                Log(LastException)
            End Try
         
         
      
    Next
 
End Sub