Danke! Wirklich dickes RL !

Will es nun übersetzen, aber das hier
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32"
Ist mir nicht ganz schlüssig, setzt du da nen hook drauf?