Sub Load_Banners
BannerAd.Initialize2("BannerAd","ca-app-pub-3940256099942544/6300978111",BannerAd.SIZE_SMART_BANNER) ' Test Banner
'BannerAd.Initialize2("BannerAd","ca-app-pub-6756501346137908/5112726844",BannerAd.SIZE_SMART_BANNER)
Dim height As Int
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
'phones
If 100%x > 100%y Then height = 32dip Else height=50dip
Else
'Tablets
height=90dip
End If
Activity.AddView(BannerAd,0dip, 100%y - height, 100%x, height)
BannerAd.LoadAd
'IAd.Initialize("IAd","ca-app-pub-3940256099942544/1033173712") 'Test interstitial
'IAd.Initialize("IAd","ca-app-pub-3940256099942544/1033173712")
'IAd.LoadAd
End Sub
Sub CaricaInterstitial
'If IAd.Ready Then IAd.Show 'carica una banner a tutto schermo
End Sub
Sub IAD_AdClosed
'IAd.LoadAd 'Prepare un altra pubblicità
End Sub
Sub TimerInter_Tick
'CaricaInterstitial
TimerInter.Enabled=False
End Sub