dialog.TitleBarHeight=0dip
dialog.BorderColor=Colors.Transparent
dialog.BodyTextColor=Colors.Black
dialog.ButtonsColor=Colors.Transparent
dialog.OverlayColor=Colors.Transparent
dialog.BlurBackground=True
dialog.Show("Lorem ipsum dolor sit amet, consectetur adipiscing elit","Ok","","")
Dim content As Panel=dialog.Base
Dim dr As ColorDrawable
dr.Initialize(Colors.White, 5dip)
content.Background = dr
content.Elevation = 5dip