Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X") 'Option 1
Dim sf As Object = xui.Msgbox2Async("Delete file?", "Title", "Yes", "Cancel", "No", Null) 'Option 2
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log("Deleted!!!")
End If
End Sub