Public Class Form1
 
    Private Structure test
        Public KEY1 As Integer
        Public KEY2 As Integer
        Public KurzBez As String
        Public LangBez As String
        Public ZusatzInfo As String
    End Structure
    Private col As New Collections.Generic.List(Of test)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'collection füllen
        For i As Integer = 0 To 130
            Dim t As New test
            t.KEY1 = i
            t.KEY2 = 1000 + i
            t.KurzBez = "Kurz" & i.ToString
            t.LangBez = "Lang" & i.ToString
            t.ZusatzInfo = "Zusatzinfo" & i.ToString
            col.Add(t)
        Next
        'listbox füllen
        For i As Integer = 0 To 13
            Me.ListBox1.Items.Add(i.ToString)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        findarg = Me.ListBox1.SelectedItem.ToString & "*"
        Dim found As List(Of test) = col.FindAll(AddressOf FindLike)
    End Sub
 
    Private findarg As String
    Private Function FindLike(ByVal toFind As test) As Boolean
        Return toFind.KEY1.ToString Like findarg
    End Function
End Class