GetObjectInfo 方法示例

对于Timer对象MyTimer 和MyTimer1的开始时间和间隔，下列示例获得一个由值构成的二维数组。

Dim iSched As Object

Dim Objects(1) As String

Dim Properties(1) As String

Dim Objinfo As Variant

Objects(0) = "MyTimer"

Objects(1) = "MyTimer1"

Properties(0) = "StartTime"

Properties(1) = "Interval"

Set iSched = System.FindObject("TestSchedule")

objinfo = iSched.GetObjectInfo(objects, properties)