You could try something similar to this.
Type Blah Field Value End Type For N = 0 To 300 B.Blah = New Blah B\Value = Rand(30530) If N = 200 Then B2.Blah = B Next Function GetBlah.Blah(Index) Local N = 0 B.Blah = First Blah While B <> Null And N < Index-1 B = After B N = N + 1 Wend Return B End Function B.Blah = GetBlah(200) If B <> B2 Then Print "Same freakin' Blah" WaitKey