Bug. (?) Command First doesn't return First type.

Very odd...

Type test
	Field omg
End Type
For x = 1 To 3
t.test = New test
  t\omg = x
Next
For x = 1 To 3
  Print "***start***"
  t.test = First test
  Print Str(t)
  PrintOMG(t)
Next
WaitKey()
End
Function PrintOMG(z.test)
    For z.test = Each test
	   Print "First omg = " + z\omg + " N : " + n
    Next
	Print "*** Finish***"
End Function

Notice the handle of the t.test changes.
Other than curiosity for the bug, why are you doing it that way.
Why not...

Type test
	Field omg
End Type
For x = 1 To 5
t.test = New test
  t\omg = x
Next

For x = 1 To 5
  t.test = First test
  printomg(t.test)
Next

Function printomg(t.test)
  Print t\omg
End Function