Private Declare Sub CopyMemory Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  Destination As Any, _
  ByVal Source As Any, _
  ByVal Length As Long)

' String-Variable in ein UDT kopieren
Dim ds As DataStructure
Call CopyMemory(ds, apiStr, Len(ds))

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de