Dim Data As Map = CreateMap("First": "","Last": "", "Date":DateTime.Now, "Time": Null, "Alive": True _
,"Sport": "", "Phone":"", "Options":"")
Dim sf As Object = prefdialog.ShowDialog(Data, "OK", "CANCEL")
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_TIME Then
Dim pm As B4XPlusMinus =prefdialog.CustomListView1.GetPanel(i).GetView(1).Tag
pm.SetNumericRange(0,55,5) 'increment or decrement by 5
End If
Next
Wait For (sf) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
'other code
End if