To test this code you can use it in a GotFocus or Change event.

===============================================================
Declare Function ShowCursor& Lib "user32"(ByVal bShow As Long)

'To hide the cursor, use this:
ShowCursor (False)

'To show the cursor, use this:
ShowCursor (True)