Private Sub Check()
        Dim lst As New List(Of FinalProduct)
        For i As Integer = 0 To 4
            lst.Add(New FinalProduct("Code" & i, "Desc" & i, i, "Dist" & i))
        Next
        Dim f1 As FinalProduct = lst(1) 'Referenzobjekt
        Debug.WriteLine("f1: " & lst.Contains(f1))
        Dim f2 As FinalProduct = New FinalProduct("Code" & 1, "Desc" & 1, 1, _
          "Dist" & 1) 'Objekt mit gleichen Werten
        Debug.WriteLine("f2: " & lst.Contains(f2))
    End Sub