如何複製這樣的陣列呢?(編號:2289)

假設現在我有兩個陣列
arr1(1 To 20) 和arr2(1 To 40)......
arr1是Integer型態
arr2是Long型態
現在有另一個陣列qq
他的宣告如下
Dim qq(1 To 20) As POINTAPI
而POINTAPI的宣告如下
Private Type POINTAPI
x As Long
    y As Long
End Type
現在我想把arr1(1 To 20)的值應對到qq(1 To 20).x
而arr2(1 To 40)中的第偶數個(即arr2(2),arr2(4),arr2(6)....)的值對應到qq(1 To 20).y
我不想用for迴圈去做 因為資料量很大 速度會很慢
我想直接用記憶體複製但型態不同 中間又以間隔 很難搞