XProfan

 $H Windows.ph
cls
Print "Aha ein Bild !!!"
Var hBitmap& = Create("hPic",0,"&SCRBMP")
Var Clip& = ~OpenClipboard(0)
~EmptyClipboard()
~SetClipboardData(~CF_BITMAP,hBitmap&)
~CloseClipboard()
waitinput
end

CLS
Print "Aha ein Bild !!!"
Var hBitmap& = Create("hPic",0,"&SCRBMP")
Pic2Clip(hBitmap&)
deleteobject hBitmap&
waitinput
End

Proc Pic2Clip

    Parameters Pic&
    External("User32","OpenClipboard",0)
    External("User32","EmptyClipboard")
    External("User32","SetClipboardData",2,Pic&)
    External("User32","CloseClipboard")

EndProc