Add this function to you module Public Declare Function ShowCursor Lib "user32" _ (ByVal bShow As Long) As Long now add this code to your module Public Sub Mouse_Hide()     Dim ret As Long     Do         ret = ShowCursor(False)     Loop Until ret <= -1 End Sub Public Sub Mouse_Show()    Dim ret    Do       ret = ShowCursor(True)    Loop Until ret >= 0 End Sub Tip submitted by Jesse McAllister