' initialise a RichString with your text
Dim rs As RichString
rs.Initialize(myString)
' initialise a RichStringFormatter with a sample token, only the fist and last characters are significant
Dim rsf As RichStringFormatter
rs.Initialize("{example}")
'define your formatting tokens
rsf.AddToken("{R}", rsf.FORMAT_RELATIVESIZE, 1.5)
rsf.AddToken("{T}", rsf.FORMAT_TYPEFACE, "serif")
rsf.AddToken("{Blue}", rsf.FORMAT_COLOR, Colors.Blue)
rsf.AddToken("{Red}", rsf.FORMAT_COLOR, Colors.Red)
rsf.AddToken("{U}", rsf.FORMAT_UNDERSCORE, Null)
rsf.AddToken("{BI}", rsf.FORMAT_STYLE, rsf.STYLE_BOLD_ITALIC)
' format the RichString using the RichStringFormatter and assign it to your label
rs = rsf.Format(rs)
MyLabel.Text = rs