Base = anagrafica.RootPane
Dialog.Title = "XUI Views"
Dialog.Initialize (Base)
InputTemplate.lblTitle.Text = "Enter time (HH:MM)"
Wait For (Dialog.ShowTemplate(InputTemplate, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
ListView3.Items.Set(ListView3.SelectedIndex,InputTemplate.Text.ToUpperCase)
End If