Mini Kabibi Habibi

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

Namespace DevExpress.Xpf.LayoutControlDemo
	Public Enum Gender
		Male
		Female
	End Enum

	Public Class Data1
		Private privateIntProperty As Integer
		Public Property IntProperty() As Integer
			Get
				Return privateIntProperty
			End Get
			Set(ByVal value As Integer)
				privateIntProperty = value
			End Set
		End Property
		Private privateNullableIntProperty? As Integer
		Public Property NullableIntProperty() As Integer?
			Get
				Return privateNullableIntProperty
			End Get
			Set(ByVal value? As Integer)
				privateNullableIntProperty = value
			End Set
		End Property
		Private privateDoubleProperty As Double
		Public Property DoubleProperty() As Double
			Get
				Return privateDoubleProperty
			End Get
			Set(ByVal value As Double)
				privateDoubleProperty = value
			End Set
		End Property
		Private privateNullableDoubleProperty? As Double
		Public Property NullableDoubleProperty() As Double?
			Get
				Return privateNullableDoubleProperty
			End Get
			Set(ByVal value? As Double)
				privateNullableDoubleProperty = value
			End Set
		End Property
		Private privateBoolProperty As Boolean
		Public Property BoolProperty() As Boolean
			Get
				Return privateBoolProperty
			End Get
			Set(ByVal value As Boolean)
				privateBoolProperty = value
			End Set
		End Property
		Private privateNullableBoolProperty? As Boolean
		Public Property NullableBoolProperty() As Boolean?
			Get
				Return privateNullableBoolProperty
			End Get
			Set(ByVal value? As Boolean)
				privateNullableBoolProperty = value
			End Set
		End Property
		Private privateCharProperty As Char
		Public Property CharProperty() As Char
			Get
				Return privateCharProperty
			End Get
			Set(ByVal value As Char)
				privateCharProperty = value
			End Set
		End Property
		Private privateNullableCharProperty? As Char
		Public Property NullableCharProperty() As Char?
			Get
				Return privateNullableCharProperty
			End Get
			Set(ByVal value? As Char)
				privateNullableCharProperty = value
			End Set
		End Property
		Private privateEnumProperty As Gender
		Public Property EnumProperty() As Gender
			Get
				Return privateEnumProperty
			End Get
			Set(ByVal value As Gender)
				privateEnumProperty = value
			End Set
		End Property
		Private privateNullableEnumProperty? As Gender
		Public Property NullableEnumProperty() As Gender?
			Get
				Return privateNullableEnumProperty
			End Get
			Set(ByVal value? As Gender)
				privateNullableEnumProperty = value
			End Set
		End Property
		Private privateStringProperty As String
		Public Property StringProperty() As String
			Get
				Return privateStringProperty
			End Get
			Set(ByVal value As String)
				privateStringProperty = value
			End Set
		End Property
		Private privateDateTimeProperty As DateTime
		Public Property DateTimeProperty() As DateTime
			Get
				Return privateDateTimeProperty
			End Get
			Set(ByVal value As DateTime)
				privateDateTimeProperty = value
			End Set
		End Property
		Private privateNullableDateTimeProperty? As DateTime
		Public Property NullableDateTimeProperty() As DateTime?
			Get
				Return privateNullableDateTimeProperty
			End Get
			Set(ByVal value? As DateTime)
				privateNullableDateTimeProperty = value
			End Set
		End Property
		Private privateDecimalProperty As Decimal
		Public Property DecimalProperty() As Decimal
			Get
				Return privateDecimalProperty
			End Get
			Set(ByVal value As Decimal)
				privateDecimalProperty = value
			End Set
		End Property
		Private privateNullableDecimalProperty? As Decimal
		Public Property NullableDecimalProperty() As Decimal?
			Get
				Return privateNullableDecimalProperty
			End Get
			Set(ByVal value? As Decimal)
				privateNullableDecimalProperty = value
			End Set
		End Property
		Private privateComplexTypeProperty As Point
		Public Property ComplexTypeProperty() As Point
			Get
				Return privateComplexTypeProperty
			End Get
			Set(ByVal value As Point)
				privateComplexTypeProperty = value
			End Set
		End Property

		Private privateCurrencyProperty As Decimal
		<DataType(DataType.Currency)> _
		Public Property CurrencyProperty() As Decimal
			Get
				Return privateCurrencyProperty
			End Get
			Set(ByVal value As Decimal)
				privateCurrencyProperty = value
			End Set
		End Property
		Private privateMultilineTextProperty As String
		<DataType(DataType.MultilineText)> _
		Public Property MultilineTextProperty() As String
			Get
				Return privateMultilineTextProperty
			End Get
			Set(ByVal value As String)
				privateMultilineTextProperty = value
			End Set
		End Property
		Private privatePasswordProperty As String
		<DataType(DataType.Password)> _
		Public Property PasswordProperty() As String
			Get
				Return privatePasswordProperty
			End Get
			Set(ByVal value As String)
				privatePasswordProperty = value
			End Set
		End Property
		Private privatePhoneNumberProperty As String
		<DataType(DataType.PhoneNumber)> _
		Public Property PhoneNumberProperty() As String
			Get
				Return privatePhoneNumberProperty
			End Get
			Set(ByVal value As String)
				privatePhoneNumberProperty = value
			End Set
		End Property

		Public Overrides Function ToString() As String
			Return "Supported data types (the Data1 class)"
		End Function
	End Class
End Namespace