I need to know why this code isn't working, I used it in another program
about a month ago and it worked fine then.  I'm using VB3.0, and I'm trying
to make the mouse disappear.

In a module I have:
Declare Function ShowCursor Lib "User" Alias "ShowCursor" (ByVal bShow As
Integer) As Integer

That was copied from the program that I was using it in a month ago (BTW,
the mouse doesn't disappear in that program either)

Then when I want the mouse to vanish:
Dim i as Integer
i = ShowCursor(0)

The mouse should vanish but it doesn't

When I want it to reappear:
Dim i as Integer
i = ShowCursor(1)

I'm not sure if this is working because it would be making an allready
visible mouse visible

What in the world is wrong with this???

thanx

It works for me.  Since it worked for you a while back.....what have
you added to your system lately?  Is there another program that might
be bumping up the cursor count?

Since the returned variable is supposed to be the display count, you
could try this:

dim ii as integer
do while ii>0
        ii=showcursor(0)
loop

BE CAREFUL.... I don't think you want to go negative...