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