Sub RewardedVideoAd_1_AdLeftApplication
LogColor("RewardedVideoAd_1_AdLeftApplication",Colors.Green)
End Sub
Sub RewardedVideoAd_1_ReceiveAd
LogColor("===Ad received. Now wait for the right moment to show the RewardedVideoAd_1.==",Colors.green)
End Sub
Sub RewardedVideoAd_1_Rewarded (Item As Object)
'Item is currently not used
LogColor("======Ad_Rewarded Item ==> "&Item,Colors.green)
number_video_wach = number_video_wach+20
lbl_star_counter.Text = number_video_wach
CodeModule.AriaSharedPreferences_1.Saveint("video_counter",number_video_wach)
CodeModule.special_Toast( "You are rewarded!!!")
End Sub
Sub RewardedVideoAd_1_FailedToReceiveAd (ErrorCode As String)
'''''' https://developers.google.com/android/reference/com/google/android/gms/ads/AdRequest#ERROR_CODE_NO_FILL
LogColor("====Ad_FailedToReceiveAd Failed:==== "& ErrorCode,Colors.Green)
End Sub
Sub RewardedVideoAd_1_AdClosed
LogColor("====AdClosed Opened====",Colors.Green)
End Sub
Sub RewardedVideoAd_1_AdOpened
LogColor("====AdOpened Opened====",Colors.Green)
End Sub