Dialog.Initialize(Base)
Dialog.Title = "Parameters"
Dialog.TitleBarColor = 0xFF720939
Dialog.ButtonsColor = 0x64720939
Dialog.ButtonsTextColor = XUI.color_White
Dialog.PutAtTop = True
Dialog.BlurBackground = True
Dialog.BackgroundColor = 0xFFFFDAE9
Dim p As B4XView = XUI.CreatePanel("")
p.SetLayoutAnimated(300, 0, 0, 95%x, 72%y)
p.LoadLayout("Param")
Dim rs As ResumableSub = Dialog.ShowCustom(p, "Close", "", "")
Wait For (rs) Complete (Result As Int)