Dim pnl As B4XView = xui.CreatePanel("")
pnl.SetLayoutAnimated(0,0, 0, 300dip, 70dip)
pnl.LoadLayout("Dialog_Label")
AS_TextFieldAdvanced1.Text="This is selectable text"
dia.Initialize(Root)
Dim rs As ResumableSub = dia.ShowCustom(pnl,"yes","no","cancel")
AS_TextFieldAdvanced1.ReadOnly = True
Wait For (rs) Complete (result As Int)