B4J Question Combo box weird behavior

Sub FillAllFHL(tlist As List, init As Boolean)
    Dim lblForHowLong(20,30) As Label
    For i = 0 To 19 '20combos
        If init = True Then SPNforhowlong(i).Initialize("SPNforhowlong")
        SPNforhowlong(i).Items.clear
        SPNforhowlong(i).Tag=i
        If i=0 Then
            If init=True Then SPNPresc.Initialize("SPNPresc") Else SPNPresc.Items.Clear
        End If
        For ii = 0 To  tlist.Size-1
            Dim tempstring As String = tlist.Get(ii)
            lblForHowLong(i,ii).Initialize("lblForHowLong")
            lblForHowLong(i,ii).Tag=ii
            lblForHowLong(i,ii).Text=tempstring
            lblForHowLong(i,ii).Style=" -fx-font-size: " & Fonts & "; -fx-font-weight: bold"
            SPNforhowlong(i).Items.Add(lblForHowLong(i,ii))
            If i=0 Then
                SPNPresc.Items.Add(lblForHowLong(i,ii))
            End If
        Next
    Next
End Sub