Private _Var As String
    Property [Readonly]/[Writeonly] NameDesProperty() As String
        Get
            Return _Var
        End Get
        Set(ByVal Value As String)
            _Var = Value
        End Set
    End Property