Dim rs As RichString 'Need the richString lib
rs.Initialize("{SIZE}{Red}${Red}{SIZE}{SIZE2}{Cyan}2075{Cyan}{SIZE2}")
rs.Color2(Colors.Red, "{Red}")
rs.Color2(Colors.Cyan,"{Cyan}")
rs.RelativeSize2(1.5,"{SIZE}")
rs.RelativeSize2(.85,"{SIZE2}")
Label2.Text =rs 'will display $2075 as: $ in red and big font, 2075 in cyan and smaller