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