'AdMob hinzufügen(Werbung)
AdView1.Initialize("AdView1","ca-app-pub-3476309460992388/1338460354", Page1, AdView1.SIZE_SMART_BANNER_LANDSCAPE)
Page1.RootPanel.AddView(AdView1, 0, 100%y - GetAddViewHeight, 100%x, GetAddViewHeight)
AdView1.LoadAd
AdView1.Visible=True
iad.Initialize("iad","ca-app-pub-3476309460992388/1338460354")
iad.RequestAd
Sub GetAddViewHeight As Int
Dim height As Int
If GetDeviceLayoutValues.DeviceApproximateScreenSize < 6 Then
'phones
If GetDeviceLayoutValues.Width > GetDeviceLayoutValues.height Then
height = 32dip
Else
height = 50dip
End If
Else
If GetDeviceLayoutValues.Width > GetDeviceLayoutValues.height Then
'tablets
height = 60dip
Else
height = 90dip
End If
End If
Return height
End Sub