Namespace Winline
    Public Class DocumentKind
        Public Id As Integer
        Public Name As String
        Public 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, DocumentKind).Id = Id
        End Function

        Public Overrides Function ToString() As String
            Return $"{Name} ({Id})"
        End Function
    End Class
End Namespace