Dim cs As CSBuilder
cs.Initialize.Alignment("ALIGN_CENTER")
cs.Append("Apple: ").Font(Font.CreateMaterialIcons(20)).Color(0xFF777777).Append(Chr(0xEB3C)).Pop.Pop.Append(CRLF)
cs.Append("Android: ").Font(Font.CreateFontAwesome(20)).Color(0xFF057916).Append(Chr(0xF170)).Pop.Pop
cs.PopAll
LabelLocation.AttributedText = cs