AdMob error

Könnte man des verbessern ?

Click to expand...

Sub Process_Globals

End Sub

Sub Globals
Dim AdView1 As AdView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
AdView1.Initialize("Ad", "YourPublisherId") 'publisher id that you received from AdMob.
Activity.AddView(AdView1, 0dip, 0dip, 320dip, 50dip) 'previously the height was 48dip. Now it is 50dip.
AdView1.LoadAd 'loads an ad
End Sub

'debugging only:
Sub Ad_FailedToReceiveAd (ErrorCode As String)
Log("failed: " & ErrorCode)
End Sub
Sub Ad_ReceiveAd
Log("received")
End Sub

Click to expand...

Sub Process_Globals
Dim AdMob As AdMob
End Sub

Sub Globals
Dim AdView1 As AdView
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
AdMob.PublisherId = "99999992e5ae01c"
' AdMob.SetTestDevices(Array As String(AdMob.EMULATOR, _
' "99999C5BEA60675272C2A09D8E9799"))
End If
Activity.LoadLayout("1")
AdView1.Initialize("AdView1")
AdView1.RequestInterval = 20 'ad will refresh every 20 seconds.
Activity.AddView(AdView1, 0dip, 0dip, 320dip, 48dip)
End Sub

'debugging only:
Sub AdView1_FailedToReceiveAd
ToastMessageShow("FailedToReceiveAd", False)
End Sub
Sub AdView1_FailedToReceiveRefreshedAd
ToastMessageShow("FailedToReceiveRefreshAd", False)
End Sub
Sub AdView1_ReceiveAd
ToastMessageShow("ReceiveAd", False)
End Sub
Sub AdView1_ReceiveRefreshedAd
ToastMessageShow("ReceiveRefreshedAd", False)
End Sub

Click to expand...