Sub Process_Globals
End Sub
Sub Globals
Private ad As RewardedVideoAd
End Sub
Sub Activity_Create(FirstTime As Boolean)
ad.Initialize("Vd Rewarded")
End Sub
Sub Activity_Resume
ad.LoadAd("ca-app-pub-xxxxxxxxxxxxxxxx/xxxxxxxxxx")
End Sub
Sub Activity_Click
If ad.Ready Then ad.Show
End Sub
Sub Ad_Rewarded (Item As Object)
ToastMessageShow("You are rewarded!!!", True)
End Sub
Sub ad_ReceiveAd
Log("Ad received. Now wait for the right moment to show the ad.")
ToastMessageShow("Received",False)
End Sub
Sub Ad_FailedToReceiveAd (ErrorCode As String)
Log("Failed: " & ErrorCode)
End Sub
Sub Ad_AdOpened
Log("Opened")
End Sub
Sub Ad_AdClosed
Log("Closed")
End Sub