DIM hResult AS Result
FOR EACH hResult
  ...
NEXT

Enumerates all records in the Result object by moving its internal cursor.