VBScript のステートメント、Property Set ステートメント

オブジェクトへの参照を設定するものらしい。

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

で「オブジェクトがありません`m_x'」のエラー…

Public ステートメントとばし