Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
WebView1.LoadHtml("<p>󾓦</p>")
EditText1.Text = UnicodeToString(0xFE4E6)
End Sub
Sub UnicodeToString (codepoint As Int) As String
Dim bc As ByteConverter
Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
Return BytesToString(b, 0, 4, "UTF32")
End Sub