Namespace Winline.Entities Public Class Account Public Property Id As String Public Property Name As String Public Property StreetName As String Public Property CityName As String Public Property ZipCode As String Public Property GLN As String 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, Account).Id = Id End Function Public Overrides Function ToString() As String Return $"{Name} ({Id})" End Function End Class End Namespace