XProfan

 $H Windows.ph
cls
Imprimir "Aha una Bild !!!"
Var hBitmap& = Crear("HPIC",0,"&SCRBMP")
Var Clip& = ~OpenClipboard(0)
~EmptyClipboard()
~SetClipboardData(~CF_BITMAP,hBitmap&)
~CloseClipboard()
waitinput
end

CLS
Imprimir "Aha una Bild !!!"
Var hBitmap& = Crear("HPIC",0,"&SCRBMP")
Pic2Clip(hBitmap&)
deleteobject hBitmap&
waitinput
End

Proc Pic2Clip

    Parámetros Pic&
    Externo("User32","OpenClipboard",0)
    Externo("User32","EmptyClipboard")
    Externo("User32","SetClipboardData",2,Pic&)
    Externo("User32","CloseClipboard")

ENDPROC