XProfan

 $H windows.ph
cls
Print "Aha one Image !!!"
Var hBitmap& = Create("HPIC",0,"&SCRBMP")
Var Clip& = ~OpenClipboard(0)
~EmptyClipboard()
~SetClipboardData(~CF_BITMAP,hBitmap&)
~CloseClipboard()
waitinput
end

CLS
Print "Aha one Image !!!"
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