Dim pref As String = "A,B,C,"
Dim suff As String = "F,G"
TextEngine.Initialize(Root)
BBCodeView1.TextEngine = TextEngine
Dim MyFont As Typeface
MyFont = Typeface.LoadFromAssets("gomarice_gogono_cocoa_mochi.ttf")
Dim edt As EditText
edt.Initialize("edt")
edt.SetLayoutAnimated(0, 0, 0, 90dip, 80dip)
edt.TextColor = Colors.White
edt.TextSize = 80
edt.Padding = Array As Int(0dip,0dip,0dip,0dip)
edt.Typeface = MyFont
edt.ForceDoneButton =True
edt.Wrap = True
edt.SingleLine = True
edt.RequestFocus
BBCodeView1.Views.Put("edt",edt)
BBCodeView1.Text = $"[TextSize=80]${pref}[/TextSize] [View=edt Vertical=10/] [TextSize=80]${suff}[/TextSize]"$
BBCodeView1.mBase.Top = 45%y