'Emojicon
#AdditionalJar: Emojicon
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
Sub Activity_Create(FirstTime As Boolean)
Dim Ad As JavaObject
Ad.InitializeNewInstance("com.rockerhieu.emojicon.EmojiconTextView", Array(GetContext))
Activity.AddView(Ad, 0, 0, 200dip, 200dip)
End Sub