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)
   
    Dim Builder As JavaObject = m.CreateRequestConfigurationBuilder(Array(Null))
    Builder.RunMethod("setTagForChildDirectedTreatment", Array(1)) 'TAG_FOR_CHILD_DIRECTED_TREATMENT_TRUE
    Builder.RunMethod("setMaxAdContentRating", Array("G"))
    m.SetConfiguration(Builder)
   
    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