Dialog.Initialize(Activity)
Dialog.Title = "First and last Name"
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 600dip) '<--------see here
p.LoadLayout("MyDialog") 'your items layout
Dialog.PutAtTop = True
Dim rs As Object = Dialog.Show(ResourceStrings.Get("subDescription"), "6 Month", "No Thanks", "12 Month")