Dim sf As Object = p.ShowDialog(CreateMap(), "OK", "CANCEL")
Sleep(0)
For i = 0 To p.CustomListView1.Size - 1
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
If pnl.GetView(0).Tag Is B4XFloatTextField Then
Dim tf As B4XFloatTextField = p.CustomListView1.GetPanel(5).GetView(0).Tag
tf.SmallLabelTextSize = 18
tf.Update
End If
Next
Wait For (sf) Complete (Result As Int)