changing the mousepointer icon

I am using Word automation in my VB6 application
Now i still need several problems solved to complete my project.
*One is changing the mousepointer icon

Change the mousepointer/icon but not only in the VB form i want to change it
when cursor is in the Word document.

I have
Set AppWord= createobject("Word.Application")
...
Is there a mouse property of the activedocument or window that can be changed?
Appword.ActiveDocument.Mouseicon... ?
Or is there an API i can use to change the mousepointer in general for allso outside the vb application.

Clearly what i want to do is following.
I have made a zoom button on my vbform
and an active word doc is allso open.
When zoom button is clicked, i can left or right click in the word doc and zoom function is called which adds 25 or minus 25 for the doc zoom. This allready works.
Only The mousecursor when clicked on the word doc stays an arrow, and want it to be a magnifyglass.
Allsso when right click on the word doc, a shortcut menu is displayed, can this be avoided (this last is minor importance)

Is there a way to change a windows mouseicon (maybe with an API) using the window its handle?
I can get the Word doc window handle maybe i can use this.

This is a good question.
Sorry I don't have a good answer.

I thought this was an easy one, so I've been poking around VB, Word VBA & APIs, but I can't figure it out.

I think you need to use the Cursor property of the System object.

VB Code:

System.Cursor = wdCursorWait