Friend Structure cbStruc
        Private KeyFeld As Integer
        Private TextFeld As String
 
        Public Property Text() As String
            Set(value As String)
                If Not String.IsNullOrEmpty(value) Then
                    TextFeld = value
                End If
            End Set
            Get
                Return TextFeld
            End Get
        End Property
    End Structure

    Dim cblst As New List(Of cbStruc)
 
    For i As Integer = 0 To 99
       cblst.Add(New cbStruc With {.text = "Item " & CStr(i)})
    Next i
 
    ComboBox1.DisplayMember = "Text"
    ComboBox1.DataSource = cblst