Dim $Array[1,5] 

$Array[0,0] = "A"
$Array[0,1] = "B"
$Array[0,2] = "C"
$Array[0,3] = "D"
$Array[0,4] = "E"
$Array[0,5] = "F"


$Array[1,0] = "0"
$Array[1,1] = "1"
$Array[1,2] = "2"
$Array[1,3] = "3"
$Array[1,4] = "4"
$Array[1,5] = "5"

$counter = 0
While $counter <= Ubound($array,2)
 ? $array[0,$counter]
 ? $array[1,$counter]
 $counter = $counter + 1
Loop
?

ReDim preserve $Array[1,Ubound($array,2)+1]
$Array[0,6] = "G"
$Array[1,6] = "6"

$counter = 0
While $counter <= Ubound($array,2)
 ? $array[0,$counter]
 ? $array[1,$counter]
 $counter = $counter + 1
Loop