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 ?? 

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

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

buenas pues yo creo que el quiere que si form tenga ese estilo igual al de la imagen
bueno si es asi como muchos programas lo hacen seria que tu mismo tendras q crear la interfas del programa tu tendras que diseñar cada boton ( minimizar, cerrar etc ) claro eso no ce hace con una sola imagen se hace con varias ya que una imagen no la puedes modificar por eso mismo porq es una sola imagen digamos que para los botones tendras que crear una imagen para cada boton y un imagen para cada efecto ( digamos si queres q cuando el cursor este sobre la imagen cambie como lo hace en algunos temas de win ) diseñalo en controles de usuario y al form ponle bordestyle = 0 asi tu form no tendra bordes y tu tendras que diseñarselos bueno todo eso si era a lo que yo pienso

   simplemente gracias no sabia  

buenaaaas a todooos tengo un gravisimo problemaa y no tengo idea que pasaa!
es acerca de pasar los problemas por referencia
el codigo:

Private Sub Form_Load()
Dim AAA As Integer
 
AAA = 50
 
BBB (AAA)
Debug.Print AAA
End Sub
 
 
Sub BBB(ByRef X As Integer)
X = X + 50
End Sub

al imprimir la variable AAA es valor es 50!!! y no 100!! es como que si me pasara la variable por valor que pasa? que hago mal perdon si es algo tonto pero estoy impactado

lo e seguido con el depurador y en el procedimiento BBB el valor de X cambia normal a 100 pero cuando retorna al form el valor cambia a 50! x3
gracias

buenas yo tengo un ejemplo que traia un pack que descargue lo subo aqui est:

http://www.mediafire.com/?s6k47jb73mrsv6j

solo que es un poco complicado a difierencia que simplemente usar el metodo omitido que no quieres usar

Gracias lo hare  y aver como me anda ! 

gracias si lo encontre y lo instale y me funka x:D

Gracias a los dos me funciono!