Public Class Listentry
   Implements IEquatable(Of Listentry)
 
   Public Property ItemData As Integer
   Public Property Text As String
 
   Public Sub New(ByVal PText As String, ByVal PData As Integer)
      ItemData = PData
      Text = PText
   End Sub
 
   Public Function Equals1(ByVal other As Listentry) As Boolean _
      Implements System.IEquatable(Of Listentry).Equals
      'Hier die gewünschte Vergleichseigenschaft angeben              
      Return Me.ItemData.Equals(other.ItemData)
      'oder:  
      'Return Me.Text.Equals(other.Text)
   End Function
End Class

'Die Liste für Instanzen der ListEntry-Klasse
Dim ListEntries As New List(Of Listentry)
'einige Listeneinträge
ListEntries.Add(New Listentry("Text_a", 1))
ListEntries.Add(New Listentry("Text_b", 2))
 
'neuer Listeneintrag
Dim le As New Listentry("Text_c", 1)
'auf Vorhandensein prüfen
If Not ListEntries.Contains(le) Then ListEntries.Add(le)
 
'Datenbindung herstellen
lbo.DisplayMember = "Text"
lbo.DataSource = ListEntries