Android Question B4X Custom Dialog Disappearing Title

p.SetLayoutAnimated(0, 0, 0, 55%y, 55%x)

p.SetLayoutAnimated(0, 0, 0, 55%x, 55%y)

    Dim bmpAxisAllies As Bitmap = LoadBitmap(File.DirAssets, "Axis & Allies.png")

Sub InitializeDialog As ResumableSub
    ' Setup Message Dialog
    csMsgTitle.Initialize.Image(bmpAxisAllies, 130dip, 40dip, False)
    csMsgText.Initialize.Typeface(fntMsgSerif).Size(18)
    Dialog.Initialize(Root)
    Dialog.Title = csMsgTitle
    Dialog.TitleBarHeight = 60dip
    Dialog.TitleBarColor = Steel
    Dialog.BackgroundColor = xui.Color_RGB(250, 235, 215)
    Dialog.BodyTextColor = xui.Color_Black
    Dialog.BorderWidth = 10
    Dialog.BorderColor = Steel
    Dialog.BorderCornersRadius = 10
    Dialog.ButtonsTextColor = xui.Color_Black
    Dialog.ButtonsFont = xui.CreateFont(Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 18)
    Dialog.ButtonsHeight = 50dip
    Dialog.PutAtTop = True

    Return True
End Sub

    Dialog.PutAtTop = True
    Dialog.Title = csMsgTitle
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 55%x, 55%y)
    p.LoadLayout("RandD")
'    p.Height = 55%y
'    p.Width = 55%x
    Dim rsp As ResumableSub = Dialog.ShowCustom(p, "Yes", "No", "")
    Dim btnYes As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
    btnYes.SetBitmap(bmpBtnUp)
    Dim btnNo As B4XView = Dialog.GetButton(xui.DialogResponse_Negative)
    btnNo.SetBitmap(bmpBtnUp)
    Wait For (rsp) Complete (Result As Int)

Dim fntMsgSerif As Typeface = Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_NORMAL)

    Dim bmpBtnUp As Bitmap = LoadBitmap(File.DirAssets, "Gold Button Up.png")    
    Dim bmpBtnDis As Bitmap = LoadBitmap(File.DirAssets, "Gold Button Disabled.png")