windows - Vbscript Printscreen から MSpaint へ

Question

アクティブなウィンドウのスクリーンショットを撮ります。

Set Wshshell=CreateObject("Word.Basic")
WshShell.sendkeys"%{prtsc}"
WScript.Sleep 1500

Mpaint を実行して貼り付けます。

set Wshshell = WScript.CreateObject("WScript.Shell")
Wshshell.Run "mspaint"
WScript.Sleep 500

WshShell.AppActivate "Paint"
WScript.Sleep 500

WshShell.sendkeys "^(v)"
WScript.Sleep 1500

ここで、アクティブウィンドウのスクリーンショットを撮る操作は問題なく動作します。また、mspaint で開始しますが、内容はペイントファイルに貼り付けられていません。