GetLevel 方法示例

对于Oval对象Oval1，下列示例获得级别索引1处 Lookup对象iLookup 的级别属性。

Dim iLookup As Object

Dim vIn1 as Variant

Dim vOut1 as Variant

Dim vIn2 as Variant

dim vOut2 as Variant

Set iLookup = System.FindObject("TestPicture.Oval1.AnimatedForegroundColor")

iLookup.GetLevel 1, vIn1, vOut1, vIn2, vOut2