From code posted by Erel on this thread https://www.b4x.com/android/forum/threads/admob-adaptive-banners.111525/
1:
Code:
Sub GetAdaptiveAdSize As AdSize
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim AdSize As JavaObject
Dim width As Int = 100%x / GetDeviceLayoutValues.Scale...