Dim Ad As JavaObject
Ad.InitializeNewInstance("com.adappter.sdk.banner.AdView", Array (GetContext, "http://show.adappter.mobi/request.php", "your key", true, true))
Activity.AddView(Ad, ...)
'you might also need to add a manager:
Dim manager As JavaObject
manager.InitializeNewInstance(GetContext, "http://show.adappter.mobi/request.php", "your key", true)
Sub GetContext As JavaObject
Return GetBA.GetField("context")
End Sub
Sub GetBA As JavaObject
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetFieldJO("processBA")
End Sub