Namespace Winline.Entities Public Class Article Public Property Id Public Property Name Public Property EAN Public Property Mandator As Mandator Public Overrides Function GetHashCode() As Integer Return Id.GetHashCode() End Function Public Overrides Function Equals(obj As Object) As Boolean Return DirectCast(obj, Article).Id = Id End Function Public Overrides Function ToString() As String Return $"{Name} ({Id})" End Function End Class End Namespace