为什么在VB6中声明Let和Set属性访问器

Question

在一个较旧的项目中，我在类模块中找到了一个属性声明，如下所示...

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

我想知道为什么DrawObject属性同时定义了Let和Set访问者;这样宣言的目的是什么？

Answer 1

唯一的原因是允许/支持两种赋值语法：

set instance.DrawObject = obj

和

instance.DrawObject = obj