Sub Service_Create
...
Admob_Consent
End Sub
Private Sub Admob_Consent
consent.Initialize("consent")
#if debug
consent.AddTestDevice("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") 'Samsung A5(2017)
#End If
'True = EU, False = Non-EU
consent.SetDebugGeography(False) 'comment for regular operation
consent.RequestInfoUpdate(Array("pub-xxxxxxxxxxxxxxxxx"))
Wait For consent_InfoUpdated (Success As Boolean)
If Success = False Then
Log($"Error getting consent state: ${LastException}"$)
End If
Log($"Consent state: ${consent.ConsentState}"$)
Log("EU: " & consent.IsRequestLocationInEeaOrUnknown)
Do While IsPaused(Main)
Sleep(100)
Loop
CallSubDelayed(Main, "ConsentStateAvailable")
End Sub