Private Sub Application_Start (Nav As NavigationController)
....
adview1.Initialize("Ad","ca-app-pub-8081096xxxxxxxxxxxxxxxxxxx",Page1,adview1.SIZE_BANNER)
adview1.Left = 0
adview1.Top = Label4.Top
adview1.LoadAd
adview1.Alpha = 1
adview1.Visible = True
adview1.BringToFront
End Sub
Sub Ad_FailedToReceiveAd (ErrorCode As String) 'admob
Log("failed: " & ErrorCode)
End Sub
Sub Ad_ReceiveAd 'admob
Log("received")
End Sub
Sub Ad_AdScreenDismissed 'admob
Log("screen dismissed")
End Sub