Private Sub Button1_Click
Dim sf As Object = xui.Msgbox2Async("Delete file?", "Title", "Cancel", "No", "Yes", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Negative Then
Log("Yes is selected")
Else If Result = xui.DialogResponse_Cancel Then
Log("No is selected")
Else
Log("Cancel is selected")
End If
End Sub