var i, oObject; var oRoot = pMe.Root; var nChildCount = oRoot.GetChildCount(); for (i = 0; i < nChildCount; i++) { oObject = oRoot.GetChildByIndex(i); Pm.Debug(oObject.Name); }
Dim i, oObject, oRoot, nChildCount Set oRoot = pMe.Root nChildCount = oRoot.GetChildCount() For i = 0 To nChildCount - 1 Set oObject = oRoot.GetChildByIndex(i) Pm.Debug oObject.Name Next