Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal lShow As Long) As Long
Public Sub pHideCursor()
ShowCursor False
End Sub
Public Sub pShowCursor()
ShowCursor True
End Sub
När du ska gömma, call pHideCursor
När du ska visa, call pShowCursor.
Glöm inte att ta pShowCursor när du avslutar programmet.