Dim icon As Bitmap = LoadBitmapResize(File.DirAssets, "btnsourd.png", 60dip, 200dip, True)
Msgbox2Async("Voulez vous envoyer votre message ?", "Envoi Message", "OUI", "Annuler", "NON", icon, False)
Wait For MsgBox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
........
End If