初めて投稿します。
初心者なのですが、サンプル一覧のグラフィック関係に搭載されてある
「スクリーンのスナップショットをクリップボードに保存及び印刷」をＷｉｎＸＰで
動作させると、「ＡｃｔｉｖｅＸコンポーネントはオブジェクトを作成できません。」と
メッセージ表示され、実行できません。
どうしたらよいのでしょうか？
ＶＢをインストールしているＷｉｎＸＰであれば問題ないのですが
そういったエディターをインストールしていないコンピュータだと
実行できません。
何か参照設定などを行っておかなければならないのでしょうか？
まったく分からないので、どなたか教えてください。
お願いします。

OsVer = CreateObject("SysInfo.SYSINFO").OSVersion
の部分でエラーが発生している物と思われます。

上記の場合配布等する場合配布先にMicrosoft SysInfo Control 6.0 (SysInfo.ocx)
コントロールが入っている必要があります。
通常のランタイムには含まれていない為に、配布される場合は、事前にFormに
Microsoft SysInfo Control コントロールを貼り付けて使用するようにして一緒に
配布して下さい。
SysInfo コントロールを Form に貼り付けた場合は下記にコードを変更して下さい。

OsVer = SysInfo1.OSVersion

又は、SysInfo.ocx を含んだランタイムを配布して下さい。

又は、WinXP・Windows2000 でしか使用しないなら
OsVer = 5.1
WindowsXP 以前(Windows98 等）しか使用しないなら
OsVer = 4

に変更すれば、ocx 等は必要ありません。

ありがとうございました。
問題なく動作しました。
何をどうしたらよいのか、まったく分からなかったので
大変助かりました。