Dim res As Int
res = Msgbox2("Wir freuen uns, dass du - nutzt. Wenn dir die App gefällt, bewerte sie doch auf Google Play.", "Bewerten","Jetzt bewerten","Nein, danke","",Null)
If res= DialogResponse.POSITIVE Then
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "market://store/apps/details?id=...")
StartActivity(i)
End If