Android Question Adding edittext to clv and measuring height problem

Dim MyList As List
    MyList.Initialize
    MyList = Array ("Apple", "Banana", "Cherry", "Coconut", "Grapes", "Lemon", "Mango", "Melon", _
    "This is a long sentence that will be fully included in the xCLV since we are using the AddTextItem method", _
    "Orange", "Pear", "Pineapple", "Strawberry", "Litchi", "Watermelon", "Tomatoes", "Cherries", "Grapefruit" , _
    "Dates", "Berries", "Raisins", "Pomegranate" )
    MyList.SortCaseInsensitive(True)    
    For Each s As String In MyList        
        clv.AddTextItem(s, s)         
    Next

Public Sub OpenItem(lbl As B4XView)
'drops down or closes the additional area of an item'
...

'class:CLVExpandable'
Private Sub ResizeItem (Index As Int, Collapse As Boolean)
    Dim item As CLVItem = mCLV.GetRawListItem(Index)
    Dim p As B4XView = item.Panel.GetView(0)
    If p.NumberOfViews = 0 Or (item.Value Is ExpandableItemData) = False Then Return
    Dim NewPanel As B4XView = xui.CreatePanel("")
    MoveItemBetweenPanels(p, NewPanel)
    Dim id As ExpandableItemData = item.Value
    id.Expanded = Not(Collapse)
    mCLV.sv.ScrollViewInnerPanel.AddView(NewPanel, 0, item.Offset, p.Width, id.ExpandedHeight)
    Dim NewSize As Int
    If Collapse Then NewSize = id.CollapsedHeight Else NewSize = id.ExpandedHeight
    mCLV.ResizeItem(Index, NewSize)
    NewPanel.SendToBack
    Sleep(mCLV.AnimationDuration)
    If p.Parent.IsInitialized Then
        MoveItemBetweenPanels(NewPanel, p)
    End If
    NewPanel.RemoveViewFromParent
End Sub


Private Sub MoveItemBetweenPanels (Src As B4XView, Target As B4XView)
    Do While Src.NumberOfViews > 0
        Dim v As B4XView = Src.GetView(0)
        v.RemoveViewFromParent
        Target.AddView(v, v.Left, v.Top, v.Width, v.Height)
    Loop
End Sub


Public Sub OpenItem(lbl As B4XView)
    Dim index As Int=mCLV.GetItemFromView(lbl)
    Dim data As ExpandableItemData = mCLV.GetValue(index)
    ResizeItem(index,data.Expanded)
End Sub


Public Sub