ret = CreateStreamOnHGlobal(0&, 1, IStm)    'Stream erzeugen
        'GDIP-Image in Stream speichern:
        ret = GdipSaveImageToStream(lBitmap, IStm, TEncoder, TParams)
        If ret = 0 Then
            Dim hMem As Long, LSize As Long, lpMem As Long
            Dim abData() As Byte
 
            ret = GetHGlobalFromStream(IStm, hMem)    'Speicher-Handle aus 
            ' Stream erhalten
            If ret = 0 Then
                LSize = GlobalSize(hMem)
                lpMem = GlobalLock(hMem)    'Zugriff auf Speicher erhalten
                ReDim abData(LSize - 1)    'Array entspr. dimensionieren
                'Aus Speicherblock des Streams in Array übertragen:
                CopyMemory abData(0), ByVal lpMem, LSize
                GlobalUnlock hMem   'Speicher wieder sperren
                ArrayFromPicture = abData   'Ergebnis
            End If