For Each s As String In qualList.Values
Private rs As RichString
rs.Initialize(s)
rs.BackColor(Colors.RGB(0, 100,255), 0, rs.Length)
rs.Color(Colors.White, 0, rs.Length)
rs.RelativeSize(tSize/14, 0, rs.Length)
rs.ScaleX(1, 0, rs.Length)
rs.Style(Typeface.STYLE_NORMAL, 0, rs.Length)
rs.TypefaceCustom(Typeface.LoadFromAssets("gothic.ttf"), 0, rs.Length)
spinner.AddAll(Array As Object(rs))
Next