keybord_eventを使っての画面キャプチャがうまくできません

[まこちｎ]

コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが　2回押さないと正常に動きません
何がおかしいのかさっぱりわからない状態です
どなたか教えてください

コード: 全て選択

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)

　　　　　　　　　　　　　　　　　　　：
　　　　　　　　
                 

[konisi]

動かしてみてないので何とも言えないけど、
もしかしたら、キーを放した瞬間にはまだキャプチャが済んでないのかもしれない。
Sleepを挟んでみたらどうだろう。

#今度からここではなくプログラミング質問板の方に投稿しましょう。