Mousepointer to be a 'Hand'

How can I get the screen.mousepointer to use the 'Hand' that you see when hovering over a hyperlink.


(its not one of the Screen.Mousepointer = 0, 1, 3, 7, 9 or 11 ones....  API perhaps?)
Who is Participating?
rockiroadsConnect With a Mentor Commented:
put this in a module

Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

then on your form code put this

  Dim lHandle As Long

  lHandle = LoadCursor(0, HandCursor)

  If (lHandle > 0) Then SetCursor lHandle

SiJPAuthor Commented:
Perfect, thank you!

(I like copying and pasting sometimes :D)
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.