In an older project I found a property declaration in a class module which looks like the following...
Public Property Get DrawObject() As Object
Set DrawObject = m_obj
End Property
Public Property Let DrawObject(obj As Object)
Set m_obj = obj
Draw
End Property
Public Property Set DrawObject(obj As Object)
Set m_obj = obj
Draw
End Property
I would like to know why the DrawObject
property has both a Let
and Set
accessor defined; what could be the purpose of such a declaration?