_mem

[Jack]

thanks DSMan195276
I think that I misunderstood the way _mem works, I thought that it worked similar to the following

Code: (Select All)

Declare CustomType Library

    Sub memcpy (ByVal dest As _Offset, ByVal source As _Offset, ByVal bytes As Long)

End Declare



Dim As _Offset os, ox, oy

Dim As Long i

Dim As Double x, y

Dim As String * 80 s



os = _Offset(s)

ox = _Offset(x)

oy = _Offset(y)



For i = 0 To 9

    x = Sqr(i + 1)

    memcpy os, ox, 8

    os = os + 8

Next



os = _Offset(s)

For i = 0 To 9

    memcpy oy, os, 8

    Print y

    os = os + 8

Next