Public Sub ShowMsgbox2Async(message As Object, title As Object, positive As String, cancel As String, negative As String) As ResumableSub
Dim msg As String = message
WriteLog(msg.Replace(CRLF, "|"))
Dim sf As Object
sf = xui.Msgbox2Async(message, title, positive, cancel, negative, Null)
Wait For (sf) Msgbox_Result (Result As Int)
Select Result
Case xui.DialogResponse_Positive
WriteLog("user answer positive")
Case xui.DialogResponse_Negative
WriteLog("user answer negative")
Case xui.DialogResponse_Cancel
WriteLog("user answer cancel")
Case Else
WriteLog("Unknown user answer")
End Select
Return Result
End Sub