請問要怎麼使用CopyMemory API函數拷貝二維陣列到一維陣列?(編號：2639)

Dim a() As Byte, b() As Byte
ReDim a(1,3)
ReDim b(3)
我要把a(1,0)到a(1,3)的陣列內容拷貝到b陣列, 請問要怎麼做??