I have just downloaded latest B4j and started using IIF. sooooo good! 5 minutes after the download I HAD to make a donation as a tangible way to thank Erel and Anywhere SW for all the incredible work and support they provide to the platform and to the users!
Thanks.
Public Sub Test
Dim sf As Object = xui.Msgbox2Async("Do you like B4X?", "", "Yes", "", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
Dim TestResult As String
TestResult = IIf(Result = xui.DialogResponse_Positive, "You are smart!", "You are quite stupid!")
xui.MsgboxAsync(TestResult, "Test result")
End Sub