Array.Copy on Multi Dimensional Arrays?

[NotLKH]

Ok. 1 D arrays are pretty easy.
For example:

'somewhere...
Private Declare Sub ShiftMemoryLong Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Long, hpvSource As Long, ByVal cbCopy As Long)
 
'somewhere else...
 
Private Sub PULL_CELL(ByVal M_Spot As Long, ByVal OUT_VAL As Long)
    'we don't need out_val anymore
    Num_Is_Used(OUT_VAL - LowNum) = True
    If M_Spot <> SlidingSourceTop Then
        Call ShiftMemoryLong(SourceNums(M_Spot), SourceNums(M_Spot + 1), 4 * (SlidingSourceTop - M_Spot))
    End If
End Sub
Private Sub PUSH_CELL(ByVal M_Spot As Long, ByRef OUT_VAL As Long)
    If M_Spot <> SlidingSourceTop Then
        Call ShiftMemoryLong(SourceNums(M_Spot + 1), SourceNums(M_Spot), 4 * (SlidingSourceTop - M_Spot))
    End If
    SourceNums(M_Spot) = OUT_VAL
    Num_Is_Used(OUT_VAL - LowNum) = False
End Sub

easily converts to:

Private Sub PULL_CELL(ByVal M_Spot As Integer, ByVal OUT_VAL As Integer)
        Num_Is_Used(OUT_VAL - LowNum) = True
        If M_Spot <> SlidingSourceTop Then
            Array.Copy(SourceNums, (M_Spot + 1), SourceNums, (M_Spot), (SlidingSourceTop - M_Spot))
        End If
    End Sub
    Private Sub PUSH_CELL(ByVal M_Spot As Integer, ByRef OUT_VAL As Integer)
        If M_Spot <> SlidingSourceTop Then
            Array.Copy(SourceNums, (M_Spot), SourceNums, (M_Spot + 1), (SlidingSourceTop - M_Spot))
        End If
        SourceNums(M_Spot) = OUT_VAL
    End Sub

But how can I convert the following to Array.Copy?

ShiftMemoryLong MyParaLowLims(MainLev, LastLimitLift), MyParaLowLims(MainLev, LastLimitLift - 1), 4 * (MaxLev + 1 - MainLev)
ShiftMemoryLong MyParaHighLims(MainLev, LastLimitLift), MyParaHighLims(MainLev, LastLimitLift - 1), 4 * (MaxLev + 1 - MainLev)

[Something Else]

Alrighty.

Array.Copy processes 2d arrays at 90 degrees to how the api ShiftMemoryRight or CopyMem technique does it.

Array.Copy also requires the 1 dimensional mapping of a 2d or more indexing, ie... Lets say you wanted to copy to or from (a, b).

I don't have my code handy, but you have to reference (a, b) as either a*(Length of Dimension 0) + b, or the other way, b*(Length of dimension 1) + a.

1 More Thing. it seems that Array.Copy requires the source and destination array must have the same dimensioning. So, lets say you had a 2 d array, and all you needed was the first 10 elements of each row. CopyMem would let you do it. Array.Copy won't.

So, Heres 1 laqst parting question.

If I have an array:

Dim MyArr(,) as Integer
ReDim MyArr(123,79)

is there any way to get the one dimensional index of MyArr(93,11)?