French affichage bannière Admob

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=%PROJECT_NAME%.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Dim banner As AdView
    Dim ads As AdsHelper
    
'    Private Activity As Activity
'erèru
    Private Button1 As Button
    Private Panel1 As Panel
End Sub

 Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
    ads.Initialize
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    'Dim size As mwFirebaseAdmobNative = Utils.GetAdaptiveAdSize
    
    'Banner in a Panel
    banner.Initialize("banner","ca-app-pub-3940256099942544/6300978111")
    'ca-app-pub-4312084760688515/6795768163
    'ca-app-pub-3940256099942544/9214589741 adaptative
    Panel1.AddView(banner, 0, 3dip, 100%x, 5%y)
    banner.LoadAd
    
    'Dim size As AdSize = Utils.GetAdaptiveAdSize   
    'Dim iheight As Int
    'iheight = size.Height
    'Log("Message !!!! ")
    
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.



Private Sub Button1_Click
    xui.MsgboxAsync("Hello Phil!", "B4X")   
End Sub