[RESOLVED] hand mouse pointer

[chris1990]

how do i get the hand mouse pointer to show over an image, it isn't included with vb6.

thanks in advance

chris1990

[RhinoBull]

You really don't need the image itself:

Option Explicit

Private Const IDC_HAND = 32649&

Private Declare Function LoadCursor Lib "user32" _
        Alias "LoadCursorA" _
        (ByVal hInstance As Long, _
        ByVal lpCursorName As Long) As Long

Private Declare Function SetCursor Lib "user32" _
        (ByVal hCursor As Long) As Long

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SetCursor LoadCursor(0, IDC_HAND)
End Sub

[chris1990]

thanks

[Lord Orwell]

you can also set the mousecursor style to 99 and have the MouseIcon property the hand cursor.

[RhinoBull]

But that requires the actual image to be embeded in your application (say image control or resource) or physical binary file.
Instead you get it from the source - user32 library is available on every system.

[DigiRev]

Also, the closest cursor I could find that matched the hand you see in most apps is harrow.cur in %windir%\cursors. But it doesn't look that good.