Android Question B4XComboBox - Font on B4A

lstItems.AddAll(Array As String("Dog", "Cat", "Bird"))
    
    Dim cs As CSBuilder
    Dim myFont As Typeface = Typeface.LoadFromAssets("MyFont.ttf") 
    
    For i = 0 To lstItems.Size -1
        B4XComboBox1.cmbBox.AddAll(Array(cs.Initialize.Typeface(myFont).Append(lstItems.Get(i)).PopAll))
    Next

Dim l2 As List
    l2.Initialize
    For i =0 To lstItems.Size -1
        l2.Add(cs.Initialize.Typeface(myFont).Append(lstItems.Get(i)).PopAll)
    Next
    B4XComboBox1.SetItems(l2)