DIM
hShortArray
AS
Short[]
DIM
anInteger
AS
Integer
FOR EACH
anInteger
IN
hShortArray
...
NEXT
Перечисляет каждый элемент, сохраненный в массиве.