Dim rs As Object = dialog.Show(ResourceStrings.Get("subDescription"), "6 Month", "No Thanks", "12 Month")
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Since you did not show more code:, maybe something like this:
B4X:
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")