Sub ShowDateDialog
Dim Dialog As B4XDialog
Dialog.Initialize(Activity)
' Load your custom layout
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 400dip)
p.LoadLayout("dlg_date") ' <-- custom layout
Dim DateTemp As B4XDateTemplate
DateTemp.Initialize
PanelDate.AddView(DateTemp.Base, 0, 0, PanelDate.Width, PanelDate.Height)
' Use ShowCustom to do not display the dialog buttons
Wait For (Dialog.ShowCustom(p, "", "", "")) Complete (Result As Int)
End Sub