CodeItBetter Programming Another VB Programming Blog

'System & API - How to Show/Hide/Restore Mouse Cursor
Option Explicit
 
' Mouse/cursor functions.
Private lShowCursor As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
 
' Hides the mouse cursor.
Public Sub HideMouse()
    Dim iResult As Integer
    Do
        lShowCursor = lShowCursor - 1
        iResult = ShowCursor(False)
    Loop Until iResult < 0
End Sub
 
' Restores the mouse cursor to it's previous state regardless if HideMouse and ShowMouse were called.
Public Sub RestoreMouse()
    If lShowCursor > 0 Then
        Do While lShowCursor <> 0
            ShowCursor (False)
            lShowCursor = lShowCursor - 1
        Loop
    ElseIf lShowCursor < 0 Then
        Do While lShowCursor <> 0
            ShowCursor (True)
            lShowCursor = lShowCursor + 1
        Loop
    End If
End Sub
 
'  Show's the mouse cursor.
Public Sub ShowMouse()
    Dim iResult As Integer
    Do
        lShowCursor = lShowCursor - 1
        iResult = ShowCursor(True)
    Loop Until iResult >= 0
End Sub