マウスアイコンを正しく表示させるには？

解決

まさ 2007-10-18 19:13:34 No: 137854

質問させていただきます。

Vb6でText1にOnMouseしたら、自作のアイコンを表示させたいのですが、
フォームロード時に
Text1.MouseIcon = Picture1
Text1.MousePointer = 99
と記載すると、確かに自作のアイコンが表示されます。
（※自作の.IcoファイルはPictureに貼り付けております）

しかし、表示サイズが拡大され、元のサイズで表示されません。
Pictureに貼りついている画像はちゃんと元のサイズで表示されているのですが…

で、試しにPictureではなくLoadPicture関数で、
サイズを指定しても、拡大されて表示されます。
例：LoadPicture(App.Path & "\img\99.ico", vbLPCustom, vbLPMonochrome, 16, 16)

ほかに何か設定が漏れているのでしょうか？
確か以前同じようなことをやった際はこんなことなかったと思うのですが…

ちなみにアイコンファイルは24Bitの16ピクセル×16ピクセルです。

ご存知の方、対処方法をご教授くださいませ。

まさ 2007-10-18 19:58:37 No: 137855

アイコンを32×32にすると、拡大されませんでした。