如何将一个字符型数组的一部分赋值到另一个完整的新字符型数组中

有一个byte类型数组：A(0 to max)

然后创建了一个新的byte类型数组：B()
我想把其中的A(10 to max)赋值到B()中，即生成B(0 to max-10)，请问如何实现？ --------------------编程问答-------------------- Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Sub main()
    Dim A() As Byte
    Dim B() As Byte
    Const MAX = 99

    ReDim A(0 To MAX)

    '赋值语句略

    ReDim B(0 To MAX - 10)
    CopyMemory B(0), A(10), MAX - 10 + 1
End Sub
--------------------编程问答-------------------- 这个不能直接CopyMemory的吧? --------------------编程问答-------------------- 晕哦怎么标题是字符型里面写的又是byte型 --------------------编程问答--------------------



Private Sub Command1_Click()

   Const Max As Integer = 19

   

   Dim A(0 To Max) As Byte, i As Integer

   For i = 1 To 20

       A(i - 1) = i

   Next

   

   Dim B() As Byte

   ReDim B(UBound(A) - 10)

   

   For i = 0 To UBound(B)

       B(i) = A(i + 10)

   Next

   

End Sub

--------------------编程问答-------------------- B=mid(a,10,len(a)-10)
B=midb(a,10,lenb(a)-10)
不敢保证对，试试看吧。 --------------------编程问答-------------------- 对说错了是字节型

补充：VB ,  基础类