Sub ImageView1_Click
princi1.RootPanel.LoadLayout("princi")
SetMultiline(parcomaiella)
SetMultiline(parconalm)
adview1.Initialize("Ad","ca-app-pub-58072950308****************",princi1,''adview1.SIZE_BANNER)
adview1.LoadAd
adview1.Alpha = 1
adview1.Visible = True
adview1.BringToFront
princi1.RootPanel.AddView(''adview1, 0dip, altezza-50dip, 100%x, 50dip)
NavControl.ShowPage(princi1)
End Sub