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