Android Question PCLV.AddItem(Size,Clr,Value) - how to determine Size for different devices

Sub FillList(filter As String)
    clvItems.Clear
    
    Dim items As List = DBCalls.Items_GetAll(SortByField)
    If items.Size > 0 Then
        For Each item As Map In items
            Dim plu As String = item.Get("PLU")
            Dim desc As String = item.Get("Description")
            If plu.Contains(filter) Or desc.ToLowerCase.Contains(filter) Then
                PCLV.AddItem(60dip,xui.Color_White,item)
            End If
        Next
        PCLV.ShowScrollBar = True
    End If
    PCLV.Commit
    PCLV.lblHint.Font = xui.CreateDefaultBoldFont(14)
    PCLV.lblHint.TextColor = xui.Color_Black
    PCLV.pnlOverlay.Color = xui.Color_LightGray
End Sub

Sub clvItems_VisibleRangeChanged(FirstIndex As Int, LastIndex As Int)
    For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
        Dim item As CLVItem = clvItems.GetRawListItem(i)
        
        Dim pTemp As B4XView = xui.CreatePanel("")
        pTemp.SetLayoutAnimated(0,0,0,100%x,100%y)
        pTemp.LoadLayout("Item_Info")
        
        Dim p2 As Panel = pTemp.GetView(0)
        Dim pHeight As Int = p2.Height + 18dip
        pTemp.RemoveAllViews
        
        Dim pnl As B4XView = xui.CreatePanel("")
        
        item.Panel.AddView(pnl, 0, 0, item.Panel.Width, pHeight)
        pnl.LoadLayout("Item_Info")
        pnl.Height = pHeight
        
        Dim itm As Map = item.Value
        lblPLU.Text = itm.Get("PLU")
        lblDescription.Text = itm.Get("Description")
        lblPrice.Text = "$" & itm.Get("Price")
    Next
End Sub