#Include "windows.bi"

Function Clip() As Integer
         Dim hBmp As HBITMAP
         hBmp=LoadImage(0,"1.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE Or LR_DEFAULTSIZE)
         OpenClipboard(0)
         EmptyClipboard()
         If SetClipboardData(CF_BITMAP,CopyImage(hBmp,IMAGE_BITMAP,0,0,LR_COPYRETURNORG)) Then Return TRUE
         CloseClipboard()
End Function
Clip()