De l'aide pour convertir ce code en VB.NET

Salut (je sais que c'est pas super les posts sans contenu préalable de ma part mais c'est hors de mes compétences cécharpiennes :?)
Dans le cadre de la création d'une application Windows Phone, j'ai besoin d'utiliser la classe CustomMessageBox apportée par le WindowsPhoneToolkit. Le problème, c'est que je n'ai trouvé nulle part de code en VB.NET, et que les convertisseurs que j'ai essayés n'ont pas converti le code comme il le fallait. Alors si quelqu'un pouvait m'aider... Le code n'est pas très complexe mais j'ai des problèmes pour les gestionnaires d'évènements (pour leurs conversions) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 CustomMessageBox messageBox = new CustomMessageBox() { Caption = "Do you like this sample?", Message = "There are tons of things you can do using custom message boxes. To learn more, be sure to check out the source code at CodePlex.", LeftButtonContent = "yes", RightButtonContent = "no" }; messageBox.Dismissed += (s1, e1) => { switch (e1.Result) { case CustomMessageBoxResult.LeftButton: // Do something. break; case CustomMessageBoxResult.RightButton: // Do something. break; case CustomMessageBoxResult.None: // Do something. break; default: break; } }; messageBox.Show(); }
Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim messageBox As New CustomMessageBox With {
    .Caption = "Do you like this sample?",
    .Message = "There are tons of thingsd you can do using custom message boxes. To learn more, be sure to check out the source code at CodePlex.",
    .LeftButtonContent = "yes",
    .RightButtonContent = "no"
}
 
AddHandler messageBox.Dismissed, Sub(s1, e1)
                                     Select Case e1.Result
                                         Case CustomMessageBoxResult.LeftButton
                                             ' Do something
                                         Case CustomMessageBoxResult.RightButton
                                             ' Do something
                                     End Select
                                 End Sub
 
messageBox.Show()

Merci tu me sauves la vie !