Change Mouse Cursor

[hafizfarooq]

Hello,
I want to change the mouse cursor like Hand Cursor (Normally we see this cursor in Web Link) when mouse moves on a label and change back to default when move to form.

Please help me
Farooq

[dglienna]

This example changes the color of a button, but should be good enough to be able to subtstitue what you want.

[hafizfarooq]

Thanks,
I dont want to change the color of button, i want to change the mouse Cursor

[Pradeep1210]

Thanks,
I dont want to change the color of button, i want to change the mouse Cursor

First set the label's MousePointer to 99 (custom). And then assingn the the MouseIcon property a cursor/icon file (which can be a 'Hand' as u want).

Pradeep

[hafizfarooq]

Thanks
Please give me some to to do the above ?

[manavo11]

Have a look at this : http://www.vbforums.com/showthread.php?t=234469

[dglienna]

Thanks,
I dont want to change the color of button, i want to change the mouse Cursor

You said you wanted a different cursor when the mouse was over a label. The method is the same for coloring a button, except for one statemnt to color and another to uncolor. You need the same thing with a change to where it colors the control, to changing the cursor.

Also, put the code from the buttone into coding for the label.

[hafizfarooq]

Thanks,
Problem RESOLVED with the follwoing code

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 0
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 99
Me.MouseIcon = LoadPicture("C:\Harrow.Cur")
End Sub


Thanks to all

[ThaRubby]

Thanks
Please give me some to to do the above ?

Even know its resolved, doing a search for ".cur" will turn up hundreds. Good luck.

*EDIT* I meant search within your computer not google btw

[Joacim Andersson]

You don't need that code to set the hand cursor for a label. The Label itself also have the MousePointer and MouseIcon properties which you can set at design time.