Public Type TW_MEMORY
  Flags As Long
  Length As Long
  TheMem As Long
End Type
 
Public Type TW_IMAGEMEMXFER
  Compression As Integer
  BytesPerRow As Long
  Columns As Long
  Rows As Long
  XOffset As Long
  YOffset As Long
  BytesWritten As Long
  Memory As TW_MEMORY
End Type
 
'... Mehr als genug Code übersprungen...
 
    lHandle = GlobalAlloc(GPTR, lBufLen)
    tSetBuf.Memory.Flags = TWMF_APPOWNS Or TWMF_HANDLE
    tSetBuf.Memory.Length = lBufLen
    tSetBuf.Memory.TheMem = lHandle
 
'... Jetzt der Teil den ich nicht richtig verstehe:
 
    MoveMemory ByVal (VarPtr(tSetBuf.Memory.Flags) + 2), _
               ByVal VarPtr(tSetBuf.Memory.Length), _
               (4 + Len(tSetBuf.Memory.TheMem) * 4&)

Ohne Mampf, kein Kampf !