Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System.ComponentModel
Imports System.ComponentModel.DataAnnotations

Namespace DevExpress.Xpf.LayoutControlDemo
	Public Class Data2
		Private privateID As Integer
		<Display(AutoGenerateField := False)> _
		Public Property ID() As Integer
			Get
				Return privateID
			End Get
			Set(ByVal value As Integer)
				privateID = value
			End Set
		End Property

		Private privateAge As Integer
		Public Property Age() As Integer
			Get
				Return privateAge
			End Get
			Set(ByVal value As Integer)
				privateAge = value
			End Set
		End Property
		Private privateEmployer As String
		<Editable(False)> _
		Public Property Employer() As String
			Get
				Return privateEmployer
			End Get
			Set(ByVal value As String)
				privateEmployer = value
			End Set
		End Property
		Private privateFirstName As String
		<Display(Name := "First name", Order := 0), Required> _
		Public Property FirstName() As String
			Get
				Return privateFirstName
			End Get
			Set(ByVal value As String)
				privateFirstName = value
			End Set
		End Property
		<Display(Name := "Full name", Order := 2)> _
		Public ReadOnly Property FullName() As String
			Get
				Return FirstName & " " & LastName
			End Get
		End Property
		Private privateGender As Gender
		<Display(ShortName := "Sex", Order := 3)> _
		Public Property Gender() As Gender
			Get
				Return privateGender
			End Get
			Set(ByVal value As Gender)
				privateGender = value
			End Set
		End Property
		Private privateLastName As String
		<Display(Name := "Last name", Order := 1), Required> _
		Public Property LastName() As String
			Get
				Return privateLastName
			End Get
			Set(ByVal value As String)
				privateLastName = value
			End Set
		End Property
		Private privateSSN As String
		<ReadOnlyAttribute(True)> _
		Public Property SSN() As String
			Get
				Return privateSSN
			End Get
			Set(ByVal value As String)
				privateSSN = value
			End Set
		End Property

		Public Overrides Function ToString() As String
			Return "Attribute support (the Data2 class)"
		End Function
	End Class
End Namespace