Sub TestMsgbox2Async
Dim i As Int
Log("1, 2, 3")
For i = 1 To 3
Msgbox2Async("Message", "Title", _
1, 2, 3, Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
Log("Remove Marker, OK, List at Location")
For i = 1 To 3
Msgbox2Async("Message", "Title", _
"Remove Marker", "OK", "List at Location", Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
Log("OK, Cancel, No")
For i = 1 To 3
Msgbox2Async("Message", "Title", _
"OK", "Cancel", "No", Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
Log("Yes, No, """"")
For i = 1 To 2
Msgbox2Async("Message", "Title", _
"Yes", "No", "", Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
Log("No, Yes, """"")
For i = 1 To 2
Msgbox2Async("Message", "Title", _
"No", "Yes", "", Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
Log("No, """", Yes")
For i = 1 To 2
Msgbox2Async("Message", "Title", _
"No", "", "Yes", Null, False)
Wait For Msgbox_Result(iResult As Int)
Log("iResult: " & iResult)
Next
End Sub