In the second For statement I think you need to change the For j=i part to For j=0
-Damien On May 11, 11:54 am, "hans' google" <j.c.hub...@tudelft.nl> wrote: > Hi, > I am new here. Try to work through the primer, but couldn't figure out > how the VB script of the Nested Loops example works. It doesn't for > me, it only gives a diagonal of points. > > For i = 0 To Pts.Count() - 1 Step GS 'Pts.Count = 4; GS =4 so i = 0 to > 3 with step 4???????????? > 'Declare a row of points > Dim Row As New List (Of On3DPoint)'this happens every cycle... > For j = i To i + GS - 1 > 'Get a reference of the point > Dim pt As On3dPoint'this happens every cycle, but pt stays Pts > (j)... > pt = Pts(j) > 'Add point to the row > Row.Add(pt) > Next > 'Add row to the grid > Grid.Add(Row) > Next