pues si estoy aprendiendo a usar la memoria pero ya tengo bastantes dudas
bueno tengo un codigo:

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type
 
Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long
 
A0.A2 = 20
 
dir = VarPtr(A0)
dir = dir + 2
 
Debug.Print dir
 
End Sub
 

pues segun lo que e aprendido es una estructura los valores se almacenan en la memoria consecutivamente osea que en esa estructura los valores deberian estar asi:


sino e aprendido mal la variable interger son 2 bytes, un long son 4 bytes , un string ( en esta no se si estoy en lo corecto seguramente no ) son 2 bytes

bueno pues con la funcion varptr obtengo la direccion de la memoria del primer byte de la estructura y comprobar que los datos se almacenan en forma consecutiva quiero obtener el valor de A2 que por eso le asigne el valor de 20
bueno panas creo que ya saben viendo mi codigo que quiero comprobar que quiero aprender y exactamente quiero mostrar el valor 20 ya que segun yo tengo la direccion de memoria . Gracias

gracias raul338
ahora comprendo porq la tan famosa copymemory que es con la que se trabaja con la memoria en vb dejo mi enigma resuelto :

Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type
 
Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long
Dim destino As Integer
 
A0.A2 = 20
 
dir = VarPtr(A0)
dir = dir + 2
 
CopyMemory ByVal VarPtr(destino), ByVal dir, LenB(dir)
Debug.Print destino
 
End Sub

por cierto algo de informacion trabajando con la memoria en vb? busque en el foro y encontre unos tutos pero no me ayudaron mucho muy avanzado creo

pero... pero si me imprime el numero 20 que es lo que queria para comprobar
y "dir" es solo una direccion
o en que es lo que fallo ?? 

vale ahora tengo mas dudad 
e probado con eso y pues ahora que veo no importa el numero de bytes que le escriba en el tercer parametro siempre pasa el resultado porq? si le agregara mas bytes no estaria accediendo a las demas variables que se encuentran en esa posicion??? 

hice este code:

Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type
 
Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long
 
Dim DEST_integer As Integer
dim DEST_long as long
dim DEST_CHAR as string 
 
 
A0.a1 = 50
A0.A2 = 20
A0.A3 = 50000
A0.A4 = "R"
 
dir = VarPtr(A0)
dir = dir + XXX
 
CopyMemory ByVal VarPtr(<type DESTINO>), ByVal dir, LEN DE BYTES
Debug.Print destino
 
End Sub

vale espero que me ayuden no podria estar bien y no resuelvo esto
pues primero esa duda porq escribiendo cualquier longitud en LEN BYTES( tercer parametro ) el numero de bytes que quiero copiar siempre obtengo el resultado correcto y eso esta bien solo que tengo una duda si agrego mas bytes no estaria dandome una respuesta incorrecta ???

y pues la otra duda porq los parametros se pasan por valor? porq no da el resultado correcto pasandolos por referencia ?

gracias
 

BlackZeroX lo explico mejor que yo, ademas de que me trabe al intentar hacer un ejemplo practico

Ya en algun momento te dará error. Lo que pasa es que esto es en pruebas, Si lo haces al manejar mensajes de windows o modificar programas externos, puede fallar

te da correcto porque esos 2 bytes te los copia en su sitio, en el espacio que habías reservado al declarar la variable, pero los otros 8 los copias fuera, prueba a copiar 1000 

Para escribir en la memoria de otro proceso  necesitas usar WriteProcessMemory.

@Raul100

Dim iVal as integer
Dim pArray(10) as long

copymemory byval varptr(pArray(0)), byval varptr(iVal), 10 <--- podria ocacionar un crash

Lo que pasa es simple. un programa se carga completamente de manera contigua = como esta en el HD.

Cada funcion esta en bloques...

Una forma en la que lopuedes ver seria:

| Headers y otras cosas.. | Funcion 0 | Funcion 1 | ... |

Por lo tanto cuando corres el codigo anterior SI y SOLO SI "ival" le sigue otra declaracion de variable copia = su contenido, de lo contrario seran instrucciones de la funcion.

Dulces Lunas!¡.