Call GetObject(hDestDC.hBitmap, Len(BmpD), BmpD)
    Call GetObject(hSrcDC.hBitmap, Len(BmpS), BmpS)
 
    'Es werden nur 24-Bit Bitmaps unterstützt
    If BmpS.bmBitsPixel <> 24 Then
        Call Err.Raise(99999, , "Only 24-Bit bitmaps are supported!")
    End If
 
    With sD
        .cbElements = 1
        .cDims = 2
        .Bounds(0).lLbound = 0
        .Bounds(0).cElements = BmpD.bmHeight
        .Bounds(1).lLbound = 0
        .Bounds(1).cElements = BmpD.bmWidthBytes
        .pvData = BmpD.bmBits
    End With
 
    Call CopyMemory(ByVal VarPtrArray(PictD), VarPtr(sD), 4)
 
    With sS
        .cbElements = 1
        .cDims = 2
        .Bounds(0).lLbound = 0
        .Bounds(0).cElements = BmpS.bmHeight
        .Bounds(1).lLbound = 0
        .Bounds(1).cElements = BmpS.bmWidthBytes
        .pvData = BmpS.bmBits
    End With
 
    Call CopyMemory(ByVal VarPtrArray(PictS), VarPtr(sS), 4)

                    'Pixelwerte aus source-bitmap erfassen
                    srcR = PictS(csc * 3, rsc)
                    srcG = PictS(csc * 3 + 1, rsc)
                    srcB = PictS(csc * 3 + 2, rsc)
                    If srcR <> TransR And srcG <> transG And _
                      srcB <> transG Then
 
                        'nicht transparent also COPY!
                        PictD(cd * 3, rd) = srcR
                        PictD(cd * 3 + 1, rd) = srcG
                        PictD(cd * 3 + 2, rd) = srcB
                    End If
                End If
            End If
            rs = rs + 1
        Next rd
    Next cd
 
    Call CopyMemory(ByVal VarPtrArray(PictD), 0&, 4)
    Call CopyMemory(ByVal VarPtrArray(PictS), 0&, 4)

Der Computer hilft uns Probleme zu l?sen, die wir ohne ihn nicht h?tten ;)

mfg Phip