Sub Admob
Ads.Initialize 'Interstitial
CheckConsentAndAddAds
End Sub
Private Sub CheckConsentAndAddAds
' Dim m As MobileAds
'
' Wait For (m.Initialize) MobileAds_Ready
' LogColor("After MobileAds_Ready", Colors.Magenta)
If Ads.GetConsentStatus = "UNKNOWN" Then
Wait For (Ads.RequestConsentInformation(False)) Complete (Success As Boolean)
End If
If Ads.GetConsentStatus = "REQUIRED" And Ads.GetConsentFormAvailable Then
Wait For (Ads.ShowConsentForm) Complete (Success As Boolean)
End If
Log("Consent: " & Ads.GetConsentStatus)
LoadAdmobAds
End Sub
Sub LoadAdmobAds
Dim AdaptiveSize As Map = Ads.GetAdaptiveAdSize
BannerAd.Initialize2("BannerAd", "ca-app-pub-********************", AdaptiveSize.Get("native"))
Activity.AddView(BannerAd, 0, 100%y-AdaptiveSize.Get("height"), AdaptiveSize.Get("width"), AdaptiveSize.Get("height"))
BannerAd.LoadAd
IAd.Initialize("iad", "ca-app-pub-**************")
IAd.LoadAd
Ads.FetchRewardedInterstitialAd("ca-app-pub-*********", Me, "RewardedInterstitialAd")
Ads.FetchRewardedVideoAd("ca-app-pub-***************", Me, "RewardAd")
Ads.FetchOpenAd(AppOpenAdUnit, Me, "OpenAd")
End Sub