'Wenn ein gültiger DC da, dann löschen
    If hdc <> 0 Then
        gdiRet = DeleteDC(hdc)
        Debug.Assert gdiRet <> 0
    End If
    'Falls ein gültiges Bitmap handle vorhanden, freigeben
    'Dieses ist das Handle welches von der Funktion GetClipboardData zurück
    'gegeben wurde
    If hBmp <> 0 Then
        gdiRet = DeleteObject(hBmp)
        Debug.Assert gdiRet <> 0        'Hier krachts, da DeleteObject Null 
        ' liefert
    End If

------------------------------
Geht nicht, gibts nicht!
------------------------------