Dim lstSigneZodiaque As ListPreference
Dim dummy As CSBuilder
dummy.Initialize
Dim cs() As CSBuilder = Array As CSBuilder(dummy,dummy,dummy)
Dim ty As Typeface
ty = Typeface.LoadFromAssets("velezodiac.ttf")
cs(0).Initialize.Typeface(ty).Append("P Y S Q T").PopAll
cs(1).Initialize.Typeface(ty).Append("p y s q t").PopAll
cs(2).Initialize.Typeface(ty).Append("B K E C F").PopAll
Dim cs2() As String = Array As String(cs(0).ToString, cs(1).ToString, cs(2).ToString)
lstSigneZodiaque = cat1.AddListPreference("","IconeSigneZodiaque", "Kisary mifanaraka amin'ny andro","Misafidiana anaty lisitra", "0", Array As String(0, 1, 2), cs2)