Mini Kabibi Habibi

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

Namespace DevExpress.Xpf.LayoutControlDemo
	Public Class Data4
		Private Const NameGroup As String = "<Name>"
		Private Const TabbedGroup As String = "{Tabs}"
		Private Const JobGroup As String = "Job"
		Private Const JobGroupPath As String = TabbedGroup & "/" & JobGroup
		Private Const ContactGroup As String = "Contact"
		Private Const ContactGroupPath As String = TabbedGroup & "/" & ContactGroup
		Private Const AddressGroup As String = "Address"
		Private Const AddressGroupPath As String = ContactGroupPath & "/" & AddressGroup
		Private Const PersonalGroup As String = "Personal-"

		Private privateAddressLine1 As String
		<Display(GroupName := AddressGroupPath, ShortName := "")> _
		Public Property AddressLine1() As String
			Get
				Return privateAddressLine1
			End Get
			Set(ByVal value As String)
				privateAddressLine1 = value
			End Set
		End Property
		Private privateAddressLine2 As String
		<Display(GroupName := AddressGroupPath, ShortName := "")> _
		Public Property AddressLine2() As String
			Get
				Return privateAddressLine2
			End Get
			Set(ByVal value As String)
				privateAddressLine2 = value
			End Set
		End Property
		Private privateBirthDate As DateTime
		<Display(GroupName := PersonalGroup, Name := "Birth date")> _
		Public Property BirthDate() As DateTime
			Get
				Return privateBirthDate
			End Get
			Set(ByVal value As DateTime)
				privateBirthDate = value
			End Set
		End Property
		Private privateEmail As String
		<Display(GroupName := ContactGroupPath, Order := 21)> _
		Public Property Email() As String
			Get
				Return privateEmail
			End Get
			Set(ByVal value As String)
				privateEmail = value
			End Set
		End Property
		Private privateFirstName As String
		<Display(GroupName := NameGroup, Name := "First name", Order := 0)> _
		Public Property FirstName() As String
			Get
				Return privateFirstName
			End Get
			Set(ByVal value As String)
				privateFirstName = value
			End Set
		End Property
		Private privateGender As Gender
		<Display(GroupName := PersonalGroup, Order := 3)> _
		Public Property Gender() As Gender
			Get
				Return privateGender
			End Get
			Set(ByVal value As Gender)
				privateGender = value
			End Set
		End Property
		Private privateGroup As String
		<Display(GroupName := JobGroupPath, Order := 1)> _
		Public Property Group() As String
			Get
				Return privateGroup
			End Get
			Set(ByVal value As String)
				privateGroup = value
			End Set
		End Property
		Private privateHireDate As DateTime
		<Display(GroupName := JobGroupPath, Name := "Hire date")> _
		Public Property HireDate() As DateTime
			Get
				Return privateHireDate
			End Get
			Set(ByVal value As DateTime)
				privateHireDate = value
			End Set
		End Property
		Private privateLastName As String
		<Display(GroupName := NameGroup, Name := "Last name")> _
		Public Property LastName() As String
			Get
				Return privateLastName
			End Get
			Set(ByVal value As String)
				privateLastName = value
			End Set
		End Property
		Private privatePhone As String
		<Display(GroupName := ContactGroupPath, Order := 2), DataType(DataType.PhoneNumber)> _
		Public Property Phone() As String
			Get
				Return privatePhone
			End Get
			Set(ByVal value As String)
				privatePhone = value
			End Set
		End Property
		Private privateSalary As Decimal
		<Display(GroupName := JobGroupPath), DataType(DataType.Currency)> _
		Public Property Salary() As Decimal
			Get
				Return privateSalary
			End Get
			Set(ByVal value As Decimal)
				privateSalary = value
			End Set
		End Property
		Private privateTitle As String
		<Display(GroupName := JobGroupPath, Order := 11)> _
		Public Property Title() As String
			Get
				Return privateTitle
			End Get
			Set(ByVal value As String)
				privateTitle = value
			End Set
		End Property

		Public Overrides Function ToString() As String
			Return "Advanced grouped layout (the Data4 class)"
		End Function
	End Class
End Namespace