Public Sub IntersticialRewardedAd (RewardedInterstitialAdAdUnit As String)
Dim RewardedInterstitialAd As JavaObject
RewardedInterstitialAd.InitializeStatic("com.google.android.gms.ads.rewardedinterstitial.RewardedInterstitialAd")
AppIntersticialRAdCallback.InitializeNewInstance(Application.PackageName & ".adshelper$MyAddOpenAdCallbackI", Null)
AppIntersticialRAdFullScreenCallback.InitializeNewInstance(Application.PackageName & ".adshelper$MyFullScreenContentCallbackI", Null)
Do While True
If AppIntersticialRAdCallback.GetField("ad") = Null Then
RewardedInterstitialAd.RunMethod("load", Array(ctxt, RewardedInterstitialAdAdUnit, GetAdRequest, AppIntersticialRAdCallback))
End If
Sleep(60000)
Loop
End Sub