Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 90%x, 400dip) 'set the content size
p.LoadLayout("layout")
Dim rs As ResumableSub = dialog.ShowCustom(p, "حفظ", "", "الغاء")
email.EditText.Enabled = False 'Disable after loaded to Dialog.
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
'...............