Dim a(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
        Dim i, j As Integer
 
        For i = 0 To 2
            For j = 0 To 2
                Debug.WriteLine("a(" & i.ToString() & ", " & j.ToString() & _
                  ")=" & a(i, j).ToString())
            Next
        Next
 
        Dim gch As GCHandle = GCHandle.Alloc(a, GCHandleType.Pinned)
        Dim addr As IntPtr = gch.AddrOfPinnedObject()
 
        For k As Integer = 0 To 32 Step 4
            Debug.WriteLine(Marshal.ReadInt32(addr, k).ToString())
        Next
        gch.Free()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov