Duplicate mouse pointer

what i want to do is this:

copy the current cursor to a form or picturebox, and make it look like a second cursor

i found this code on the net to copy the cursor to a form:

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Sub Form_Paint()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Draw the current cursor on this form
    DrawIcon Me.hdc, 0, 0, GetCursor
End Sub

but then it doesn't change when the mousecursor changes
is it somehow possible to create an instance of the cursor on my form?
LVL 13
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

it's not gonig to change unless you change it.  what you've done is drawn a copy of it on the form, not drawn an actual linked cursor.

does that help?
Mark_FreeSoftwareAuthor Commented:
yes, but i want to know how one can draw an actual linked cursor ;)
Mike TomlinsonMiddle School Assistant TeacherCommented:
To what end?  Can you give us a bigger picture of what you want your application to do?
Mark_FreeSoftwareAuthor Commented:

basically i want four mouse pointers on my screen,

1 as a normal pointer, the other 3 a bit grayed out so it is clear what is the active one

(don't ask, it was a customer who came with the idea of 4 pointers)

set your timer interval to 1 and enabled = true

Private Sub Timer1_Timer()
DrawIcon Me.hdc, 10, 10, GetCursor
End Sub

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.