Mouse Cursor

[Loyal]

سلام.
لیست کرسرهای موس در مسیر C:\Windows\Cursors قرار داره. میتونی لیستشون رو بگیری و هر کدوم رو که خواستی انتخاب کنی.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\Windows\Cursors\lmove.cur")

میتونی از یه ایمیج رو فرمت هم آیکون موس رو ست کنی.

کد:

Command1.MousePointer = vbCustom
Set Command1.MouseIcon = Image1.Picture

یا از یه آیکون خارج از برنامه.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\a.ico")

پسوند cur رو قبول نمی کنه. اگر هم قبول کنه سیاه و سفیدش می کنه. چرا؟