Sub Globals
Dim lbl As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
lbl.Initialize("")
Activity.AddView(lbl, 0, 50dip, 200dip, 100dip)
Dim rs As RichString
rs.Initialize("Example: x{superscript}2{superscript}")
rs.Superscript2("{superscript}")
lbl.Text = rs
End Sub