Sub Globals
...
Dim AdView1 As AdView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layoutmain") 'Cargamos el Layout Principal
'PUBLICIDAD
ListView1.Height = activity.Height-50dip'Recorto es listview
AdView1.Initialize("AdView1", "a14e3423bfXXXXX") 'publisher id that you received from AdMob.
'Activity.AddView(AdView1, 0dip, 400dip, 320dip, 50dip) 'previously the height was 48dip. Now it is 50dip.
Activity.AddView(AdView1, 0dip, ListView1.Height, 320dip, 50dip)
AdView1.LoadAd 'loads an ad
End Sub