AllAPI Network - The KPD-Team

Allapi Network

 API List

API Resources
 Tips & Tricks
 VB Tutorials
 Error Lookup
Misc Stuff
 VB examples
 VB Tools
 VB Links
 Top Downloads
This Site
 Search Engine
 Contact Form

Donate to

How to hide and show the mouse cursor

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
        ret = ShowCursor(False)
    Loop Until ret <= -1
End Sub
Public Sub Mouse_Show()
   Dim ret
      ret = ShowCursor(True)
   Loop Until ret >= 0
End Sub

Tip submitted by Jesse McAllister



Copyright © 1998-2007, The Team - Privacy statement
Did you find a bug on this page? Tell us!
This site is located at