Dim lbl As Label
lbl.Initialize("")
Dim cs As CSBuilder
cs.Initialize
cs.Append("Phone Types ")
cs.Typeface(Typeface.CreateNew(Typeface.DEFAULT,Typeface.STYLE_ITALIC))
cs.Append("(").Append($"${phonetype}"$).Append(")")
cs.Typeface(Typeface.DEFAULT)
cs.PopAll
'Dim ptTitle As String = cs
lbl.Text = cs
lvSettings.AddTwoLinesAndBitmap2(lbl.Text,....