Sub MessageBox
Dim Dialog As B4XDialog
Dim Base As B4XView
Base = Activity
Dialog.Initialize (Base)
Dialog.TitleBarColor = XUI.Color_White
Dialog.ButtonsTextColor = XUI.Color_Red
Dialog.BorderWidth = 0
Dialog.BorderColor = XUI.Color_Transparent
Dialog.ButtonsColor = XUI.Color_Transparent
Dialog.BackgroundColor = XUI.Color_White
Dialog.Title = "Messagebox"
Wait For (Dialog.Show("Test", "OK", "", "")) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
'ExitApplication
End If
End Sub