何がおかしいのかさっぱりわからない状態です
どなたか教えてください
コード: 全て選択
Sub MainWnd_CommandButton12_Click()
Dim Ret As Long
:
keybd_event(VK_SNAPSHOT,0,0,0)
keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0)
Ret=IsClipboardFormatAvailable(CF_BITMAP)
if Ret = 0 then
return
endif
'クリップボードのデータを格納
Ret=OpenClipboard(NULL)
hBit=GetClipBordData(CF_BITMAP)
: