Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
For i = 0 To p.PrefItems.Size - 1
Dim pi As B4XPrefItem = p.PrefItems.Get(i)
p.CustomListView1.AnimationDuration = 0
If pi.ItemType = p.TYPE_TEXT Then
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim ft As B4XFloatTextField = pnl.GetView(0).Tag
ft.lblClear.Left = -100dip
ft.lblV.Left = -100dip
End If
Next
Wait For (sf) Complete (Result As Int)