Namespace Winline
    Public Class Account
        Public Property Id As String
        Public Property Name As String
        Public Property Mandator As String

        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