Italian Come settare da codice una combo box?

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private cb As ComboBox
End Sub

Sub combo

    cb.Initialize("")
 
    Dim lb As Label
    lb.Initialize("")
    lb.Text="codice 1234"
    lb.Tag="1234"
 
    cb.Items.Add(lb)
 
    getValueCombo(lb.Tag)
 
End Sub

Sub getValueCombo(value As String)
 
    For i = 0 To cb.Items.Size-1
   
        If cb.Items.Get(i) Is ComboBox Then
       
        Dim lb As Label = cb.Items.Get(i)
   
        If lb.As(Label).Tag = value Then
            'dillo alla mamma
        End If
   
        End If
   
    Next
 
End Sub

Sub getValueCombo( value As String) As String
    For i = 0 To cb.Items.Size-1
        If cb.Items.Get(i) Is ComboBox Then
        Dim lb As Label = cb.Items.Get(i)
        If lb.As(Label).Tag = value Then
            Return lb.Text
        End If
        End If
    Next
    Return "Null"
End Sub