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