これってどうしてできないの？エラーが投げられちゃうの。
桃白白困ってるの。教えてください。お願いします。

Microsoft VBScript 実行時エラー: 型が一致しません。: 'TestProperty'

Call Test()

Sub Test()
　　Dim o
　　Set o = New TestClass
　　Call o.TestMethod()
End Sub

Class TestClass
　　Sub TestMethod()
　　　　Set TestProperty(0) = New TestClass
　　End Sub
　　
　　Property Set TestProperty(ByVal index, ByVal value)
　　　　Call WScript.StdOut.WriteLine("TestProperty")
　　End Property
End Class