Spanish Este código sobre Msgbox2Async es de uno de los manuales pero no me funciona

[Capri]

Hola, estoy conociendo este lenguaje que en principio me parece bastante sencillo pero me he encontrado con el problema de que cuando uso 'Msgbox2Async' siempre me da error.
Hasta el punto de que el código que muestro a continuación está copiado de uno de los manuales pero sigue dando error. Al llegar a la mencionada instrucción simplemente se sale
de la aplicación ¿ cual puede ser el motivo ?. ¿ Cómo lo corrijo ?. Saludos.

Sub Button1_Click
    Dim result As Int
    result=Msgbox2Async("Exit?", "Title", "Yes", "Cancel", "No", Null, False)
    If result=DialogResponse.POSITIVE Then
        Activity.Finish
        ExitApplication
    End If
End Sub

 

[Star-Dust]

Msgbox2Async("Exit?", "Title", "Yes", "Cancel", "No", Null, False)

Wait For Msgbox_Result (Result As Int)
If Result <> DialogResponse.POSITIVE Then
        Dim jo As JavaObject
        jo.InitializeContext
        jo.RunMethod("finishAffinity", Null) ' correct end application 
End If

 

[Star-Dust]

¿Capri funcionó? Tus comentarios serán bienvenidos.

 

[Capri]

Funcionó perfecto, muchas gracias, la verdad es que este sistema de programación me está gustando bastante, se progresa bastante rápido. Gracias