Public Class Form1
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        ListBox1.Items.Add(New MyListBoxData("Hallo", "Tschüss"))
        ListBox1.Items.Add(New MyListBoxData("du", "hi"))
        ListBox1.Items.Add(New MyListBoxData("bin", "weg"))
        ListBox1.Items.Add(New MyListBoxData("Tag", "blabla"))
        ListBox1.Items.Add(New MyListBoxData("es", "ist"))
        ListBox1.Items.Add(New MyListBoxData("hallo", "hi"))
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim text() As String = New String() {"Hallo", "ich", "bin", "es", "Tag"}
 
        For i As Integer = 0 To text.Length - 1
            For j As Integer = ListBox1.Items.Count - 1 To 0 Step -1
                If TypeOf ListBox1.Items(j) Is MyListBoxData Then
                    Dim item As MyListBoxData = CType(ListBox1.Items(j), _
                      MyListBoxData)
 
                    If item.LeftSide = text(i) Then
                        ListBox1.Items.RemoveAt(j)
                    End If
                End If
            Next
        Next
    End Sub
End Class
 
Public Class MyListBoxData
    Public Sub New(left As String, right As String)
        _LeftSide = left
        _RightSide = right
    End Sub
 
    Property LeftSide As String
    Property RightSide As String
 
    Public Overrides Function ToString() As String
        Return Me.LeftSide & " = " & Me.RightSide
    End Function
End Class