Mouse icon

[Mollethewizard]

Hello

Is there a way to change the mouse icon to a hand when the user moves the cursor to the OK button in a user form? Is the “function” available in VBA?
And how do I accomplish the change?

Greetings Mollethewizard

 

[ZmrAbdulla]

Use this API code in a module

http://www.mvps.org/access/api/api0044.htm

and call it on MouseMove of the command button

Private Sub cmdOK_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MouseCursor (32649)
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
My father was a realistic father; not a vending machine dispense everything I demanded for!!

 

[rmikesmith]

Perhaps even easier is to set the MousePointer property of the control you are interested in (CommandButton in this case). On my system using XL2000 a "hand" icon is not an available choice, but you can also set a custom icon. Choose fmMousePointerCustom in the dropdown box for the MousePointer property then in the Userform Initialize event include something like the following:

Private Sub UserForm_Initialize()
   CommandButton1.MouseIcon = LoadPicture("C:\WINNT\Cursors\harrow.cur")
End Sub

Regards,
Mike