'custom addition to this class to add richtext formatting ********************
Sub buildRS(lblTxt As String) As RichString
Dim rs As RichString
rs.Initialize(lblTxt)
rs.RelativeSize2(.8, "{R}")
rs.Color2( Colors.Cyan, "{C}" )
rs.RelativeSize2(1.2, "{L}")
rs.Underscore2("{U}")
rs.Style2( rs.STYLE_BOLD, "{BI}" )
Return rs
End Sub