Sub Globals
Dim AdView1 As AdView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
AdView1.Initialize("Ad", "xxxxxxxxxxxxxxxxxxxxx/yyyyyyyyyy")
Activity.AddView(AdView1, 0dip, 0dip, 320dip, 50dip)
AdView1.LoadAd 'loads an ad
AdView1.Background = Null
End Sub
Sub ButtonShow_Click
AdView1.RemoveView
StartActivity(Show)
CallSubDelayed2(Show,"SetAdView",AdView1)
End Sub