Fast Array Addition

Hi folks.

I used to know of a very quick method of incrementing each value in an array without using a loop. Has anyone got this code?

example (old way).....

Dim Alien(1000,2)
for a = 1 to 1000
Alien(a,1)=Alien(a,1)+1
Alien(a,2)=Alien(a,2)+1
next


Any help would be great.

Thanks.