Dim cs As CSBuilder
Dim myFont As Typeface = Typeface.CreateNew(Typeface.LoadFromAssets("myfont.ttf"), Typeface.STYLE_BOLD)
Dim s() As String =Array ("-","7","10","14","30","60","90","180","365")
For i=0 To s.Length -1
spnrmks.cmbBox.Addall(Array (cs.Initialize.Typeface(myFont).Append(i).PopAll))
Next