Sub Globals
Private BannerAd As AdView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim adSize As JavaObject
adSize.InitializeNewInstance("com.google.android.gms.ads.AdSize", Array(320, 50))
BannerAd.Initialize2("BannerAd", "ca-app-pub-xxxxxxxxxxxx/xxxxxxxxx", adSize)
panel1.AddView(BannerAd,(panel1.Width/2) -160dip,0dip,320dip,50dip)
BannerAd.LoadAd
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Dim jo As JavaObject = BannerAd
jo.RunMethod("destroy", Null)
End Sub