Can't find function

[DS]

I have this in a module,

Public Sub HidePointer()
Do While ShowCursor(0) >= -1
DoEvents
Loop
End Sub

On a form on the onclick event I have this...
=HidePointer()
but access says that it can't find the function. What am I doing wrong?

Also how would I attach this code to a keystroke?

Thanks
DS

 

[Al Campagna]

DS,
Try
Private Function HidePointer()
your code...
End function
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[DS]

Thanks Al,
It works.
DS