var aExt = pMe.Pm("/Comm/Group1").GetVarExtensions(); var i; var n = aExt.GetSize(1); for (i = 0; i < n; i++) { Pm.Debug(aExt.GetItem(i).ItemId); }
Dim aExt, i, n aExt = pMe.Pm("/Comm/Group1").GetVarExtensions() n = UBound(aExt) + 1 For i = 0 To n - 1 Pm.Debug aExt(i).ItemId Next