Public Sub ShowCustom (Content As B4XView, Yes As Object, No As Object, Cancel As Object) As ResumableSub
For Each v As B4XView In mParent.GetAllViewsRecursive
If v.Tag <> Null And v.Tag = "b4xdialog_background" Then
v.RemoveViewFromParent
Exit
End If
Next