オブジェクトへの参照を設定するものらしい。 Class Foo Private m_x Public Property Set x(val) Set m_x = val End Property Public Property Get x Set x = m_x End Property End Class Set x = new Foo Set x.x = new Foo MsgBox x.x.x で「オブジェクト…