dia.BlurBackground = True
dia.BackgroundColor = xui.Color_ARGB(255,32, 33, 37)
dia.ButtonsTextColor = xui.Color_ARGB(255,20, 160, 130)
dia.ButtonsColor = dia.BackgroundColor
dia.BorderWidth = 0
dia.BorderCornersRadius = 10
dia.TitleBarColor = xui.Color_ARGB(255,32, 33, 37)
dia.TitleBarTextColor = xui.Color_ARGB(255,20, 160, 130)
dia.Title = "Delete"
Dim sf As Object = dia.Show("Are you sure you want to delete this picture?","Yes", "No", "Abort")
dia.TitleBar.GetView(0).SetTextAlignment("CENTER","LEFT")
dia.TitleBar.GetView(0).Left = 10dip
Dim Content As B4XView = dia.Base.GetView(dia.Base.NumberOfViews - 1)
Content.GetView(0).Left = 10dip
Content.GetView(0).width = Content.GetView(0).width - 5dip