Imports System.ComponentModel

Public Module ModuleControlProperties
    Private _id As Integer
    Private _name As String
    Private _location As Point
    Private _width As Integer
    Private _height As Integer

    Public Class BaseProperties
        <ReadOnlyAttribute(True)>
        Public Property ID() As Integer
            Get
                Return _id
            End Get
            Set(value As Integer)
                _id = value
            End Set
        End Property

        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(value As String)
                _name = value
            End Set
        End Property

        Public Property Location() As Point
            Get
                Return _location
            End Get
            Set(value As Point)
                _location = value
            End Set
        End Property

        Public Property Width() As Integer
            Get
                Return _width
            End Get
            Set(value As Integer)
                _width = value
            End Set
        End Property

        Public Property Height() As Integer
            Get
                Return _height
            End Get
            Set(value As Integer)
                _height = value
            End Set
        End Property
    End Class

    Public Class TextboxProperties
        Inherits BaseProperties

        Private _required As Boolean
        Private _read_only As Boolean

        Public Property Required() As String
            Get
                Return _required
            End Get
            Set(ByVal value As String)
                _required = value
            End Set
        End Property

        Public Property [ReadOnly]() As String
            Get
                Return _read_only
            End Get
            Set(ByVal value As String)
                _read_only = value
            End Set
        End Property
    End Class

    Public Class LabelProperties
        Inherits BaseProperties

        Private _text As String

        Public Property Text() As String
            Get
                Return _text
            End Get
            Set(value As String)
                _text = value
            End Set
        End Property
    End Class

    Public Class CheckboxProperties
        Inherits BaseProperties

        Private _text As String

        Public Property Text() As String
            Get
                Return _text
            End Get
            Set(value As String)
                _text = value
            End Set
        End Property
    End Class

End Module