Hola mundo
bueno e me cruzado con un problemon que tengo horas tratando de saber que pasa
miren el codigo alguien sabe que pasaaaa!?

Private declare sub RtlMoveMemory lib "Kernel32.dll" (byval dest as long , Byval Src as long, Byval ln as long)
 
private type MY
Str1 as string 
Str2 as string
end type
 
sub main()
dim NEW(50) as byte
dim M as MY
 
M.Str1 = "ABCD"
M.Str2 = "EFGH"
 
rtlmovememory varptr(new(0)), varptr(M) , lenb(M)
 
end sub
 
 

los valores del array son:
116,153,61,5

y lo que realmente me esperaba era:
65,66,67,68


luego hice esto:

dim A() as byte
 
A = M.Str1 '// la misma estructura 

y tambien esto, y me resulto mas extraño O.o

Private Sub Form_Load()
Dim M As MY
 
M.A = 50000: M.B = 4000
M.C = "HELLO"
 
 
Debug.Print Len(M.A) 4
Debug.Print Len(M.B) 2
Debug.Print Len(M.C) 5
Debug.Print "------"  11
 
Debug.Print LenB(M.A) 4
Debug.Print LenB(M.B) 2
Debug.Print LenB(M.C) 10
Debug.Print "------" ' 16
 
Debug.Print Len(M) 10
Debug.Print LenB(M) 12!!!
 
End Sub
 
 

alguien sabe que pasa ? mas que todo lo que quiero es aprender y saber que pasa aunque me imagino
que es VB   que tristesa  

Es cierto!! como se me habria olvidado x3
en las estrucuturas las string son punteros xP


entonces en este codigo lo que realmente estoy copiando a "New" son los punteros de las string no? x)
hice este


lo raro es el array queda asi con esos valores
160
15
0
0
220
64
52
5
200
175

esta raro no puede ser que todos sean punteros :| o si



Mil gracias BlackZeroX

Guardado
gracias Zero