Public Function compareArrays(ByVal a(,) As Integer, ByVal b(,) As Integer)
        If a.GetUpperBound(0) <> b.GetUpperBound(0) OrElse a.GetUpperBound(1) _
          <> b.GetUpperBound(1) Then Return False
 
        Dim gcha As GCHandle = GCHandle.Alloc(a, GCHandleType.Pinned)
        Dim addra As IntPtr = gcha.AddrOfPinnedObject()
        Dim gchb As GCHandle = GCHandle.Alloc(b, GCHandleType.Pinned)
        Dim addrb As IntPtr = gchb.AddrOfPinnedObject()
 
        Dim res As Boolean = True
        For k As Integer = 0 To 4 * (a.Length - 1) Step 4
            If Marshal.ReadInt32(addra, k) <> Marshal.ReadInt32(addrb, k) Then
                res = False
                Exit For
            End If
        Next
        gcha.Free()
        gchb.Free()
        Return res
    End Function
 
    Private Sub Test()
 
        Dim a(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12}}
        Dim b(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 7, 9}, {10, 11, 12}}
 
        Dim res As Boolean
 
        res = compareArrays(a, a)
        res = compareArrays(a, b)
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist