Private Sub ChangeValueWidth (Key As String)
Dim i As Int = p.PrefItems.IndexOf(p.GetPrefItem(Key))
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim lbl As B4XView = pnl.GetView(1)
lbl.SetLayoutAnimated(0, 40dip, lbl.Top, pnl.Width - 40dip, lbl.Height)
End Sub