VB初心者友の会 - Q&A掲示板過去ログ

今回は、スナップショットについての質問なんですが・・・

タイマーを使って、連続スナップショットを撮ろうとするとエラーが発生します。
一枚だけスナップショットするならエラーは起きないんですが・・・
ソースは以下の通りです。

'***********************************************************
Private Sub Timer1_Timer()
'//PicSnapはピクチャーボックスの名前
'//APIと定数はそれぞれ別モジュールにPublicで宣言してあります
'//Timer1.Interval=1000に設定されてます

PicSnap.Cls
Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
DoEvents

PicSnap.Picture = Clipboard.GetData '<-ここでエラーが起きる
SavePicture PicSnap.Picture, SvFile '<-SvFileは記録するファイル名（別に作成済み）
End Sub
'***********************************************************

スナップショットを撮るアプリ自身にフォーカスを当てている場合は、
連続スナップを撮ってもエラーは起きないんですが、
他のウィンドウにフォーカスを当ててスナップを撮ろうとしたら、
エラーが起きるんです。
エラー内容は「クリップボードを開けません」というエラーです。
クリップボードビューアには、ちゃんとスナップショットが入ってるんですが・・・

上手く連続スナップショットを撮れるように出来ないでしょうか？