Label question

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