تغییر آیکون موس

[IntelBoy]

سلام دوستان من میخواهم وقتی کاربر روی دکمه دوبار کلیک کرد آیکون موس تغییر کند به آیکونی که خودم طراحی کردم با فرمت ico خودم اینو امتحان کردم نشد لطفا راهنمایی ام کنید
form1.mousepointer = 99
form1.mouseicon = path ("/mouse4.ico")

[vbhamed]

سلام

MouseIcon = LoadPicture("mouse4.ico")

آیکون حتما باید 256 رنگ باشه نه بیشتر و یک دونه آیکون ترجیحا سایز 32x32 باشه نه سایزهای مختلف در یک فایل