Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
　　　Dim a(1000) As Byte
　　　Dim B(10) As Byte, i
　　　For i = 0 To 10
　　　　　　a(i) = i
　　　Next i
　　　B(0) = 100
　　　CopyMemory a(11), B(0), UBound(B) + 1

End Sub
こんな感じ?