Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()Dim A(2, 2) As IntegerDim B(2, 2) As IntegerA(0, 0) = 0A(0, 1) = 1A(0, 2) = 2A(1, 0) = 3A(1, 1) = 4A(1, 2) = 5A(2, 0) = 6A(2, 1) = 7A( |