Yeah, and the solution to that is already given...
code:
Private Declare Function ShowCursor Lib "user32" (ByVal lShow As Long) As Long
Sub Form_Load ()
ShowCursor False
' do whatever you want with the mouse gone
ShowCursor True
End Sub
But keep in mind that if you call the ShowCursor function more than once passing False as an argument, then you must call ShowCursor with True an equal number of times, otherwise the cursor will remain invisible!!!!
/ 
