Private Sub CheckConsentAndAddAds
Dim m As MobileAds
Wait For (m.Initialize) MobileAds_Ready
' m.SetConfiguration(m.CreateRequestConfigurationBuilder(Array("94BEBAAE1A9C9C6B3928ED3DE75C7370"))) 'optional. Array with test device ids. See unfiltered logs to find correct id.
If Ads.GetConsentStatus = "UNKNOWN" Or Ads.GetConsentStatus = "REQUIRED" 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