define some class
Public Class MyOwnProperty
declare some vars
private _width as Integer
private _height as integer
now declare properties
Public Property Width As Integer
Get
return _width
End Get
Set(ByVal Value As Integer)
_width = Value
End Set
End Property
Public Property Height As Integer
Get
return _height
End Get
Set(ByVal Value As Integer)
_height = Value
End Set
End Property
End Class
and now use this class as a readonly property
Public Class ClassToUseProperty
declare the previous class that was made
private _myproperty As New MyOwnProperty
And use the object as a read-only property
Public ReadOnly Property TheProperty As MyOwnProperty
Get
return _myproperty
End Get
End Property
End Class