Dim cs As CSBuilder
Dim strvar As String ="PPPFFPPFPFFPPP"
cs.initialize.Color(Colors.Red).Append(strvar.SubString2(0, 5)).Color(Colors.Blue).Append(strvar.SubString2(5, 8)) _
.Color(Colors.Green).Append(strvar.SubString(8)).PopAll
lbl.Text=cs 'part of it will be red, the middle blue, the rest green