Dim Dialog As B4XDialog
Dialog.Initialize(Root)
Dialog.BorderCornersRadius = 20dip
Dialog.BackgroundColor = xui.Color_White
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 400dip)
p.SetColorAndBorder(xui.Color_White,0,0,20dip)
p.LoadLayout("CustomDialog")
Dialog.ShowCustom(p,"","","")
SetCircleClip(Dialog.Base,20dip)
Sleep(500)
Dialog.Base.SetRotationAnimated(50,10)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,0)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,-10)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,0)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,10)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,0)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,-10)
Sleep(50)
Dialog.Base.SetRotationAnimated(50,0)
Sleep(50)