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