'Possible values: DEFAULT, HOME_SCREEN, STARTUP, PAUSE, EXIT, LEVEL_START, LEVEL_COMPLETE, ACHIEVEMENTS, LEADERBOARDS, STORE
Sub CreateAd (AdUnitId As String) As JavaObject
Dim AdId As JavaObject
AdId.InitializeStatic("com.appbrain.AdId")
Dim builder As JavaObject
builder = builder.InitializeStatic("com.appbrain.InterstitialBuilder").RunMethod("create", Null)
builder.RunMethod("setAdId", Array(AdId.GetField(AdUnitId)))
Dim listener As Object = builder.CreateEventFromUI("com.appbrain.InterstitialListener", "listener", Null)
builder.RunMethod("setListener", Array(listener))
builder.RunMethod("preload", Array(ctxt))
Return builder
End Sub