Keep Mouse Cursor Inside a Form or Control

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Pass the hWnd property of the form or control to this function, and you won't be able to move the mouse outside of it.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Declare Function ClientToScreen Lib "user32" _ (ByVal hWnd As Long, lpPoint As POINTAPI) As Long Public Declare Function GetClientRect Lib "user32" _ (ByVal hWnd As Long, lpRect As RECT) As Long Public Declare Function ClipCursor Lib "user32" _ (lpRect As Any) As Long Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type POINTAPI X As Long Y As Long End Type

Code: