Sub rewad_Rewarded (Item As Object)
Dim cs As CSBuilder
cs.Initialize.Alignment("ALIGN_CENTER").RelativeSize(30dip).Typeface(Typeface.SANS_SERIF).bold.Color(Colors.White).Size(18).Append(Starter.loc.Localize("Has sido recompensado, podrás enviar hasta ")).Pop.Pop
cs.bold.Color(Colors.Red).Size(25).Append(contador_publicidad).Pop.Pop.Pop
cs.Color(Colors.White).Size(18).Append( Starter.loc.Localize(" traducciones , recuerda que siempre tienes la opción de ")).Pop
cs.Color(Colors.White).Size(20).Append(Starter.loc.Localize("suscribirte")).Pop
cs.Color(Colors.White).Size(18).Append( " a ").Append(CRLF). Pop
cs.bold.Color(Colors.White).Size(27).Append("app").popall
ShowCustomToast(cs, True, Colors.RGB(25,208,35))
End Sub
Sub ShowCustomToast(Text As Object, LongDuration As Boolean, BackgroundColor As Int)
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim duration As Int
If LongDuration Then duration = 1 Else duration = 0
Dim toast As JavaObject
toast = toast.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, Text, duration))
Dim v As View = toast.RunMethod("getView", Null)
Dim cd As ColorDrawable
cd.Initialize(BackgroundColor, 20dip)
v.Background = cd
toast.RunMethod("show", Null)
End Sub