Un esempio per nascondere e rifar apparire il cursore del mouse


In un modulo:
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long


In un bottone per far scomparire
ShowCursor False


In un bottone per far apparire
ShowCursor True