Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Clipping and Unclipping the Cursor

Type RECT        Left As Long        Top As Long        Right As Long        Bottom As Long     End Type          Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long          Sub cmdClip()         Dim rectClipArea As RECT         Dim lngRetVal As Long               With rectClipArea            .Top = 200            .Left = 100            .Bottom = 420            .Right = 280         End With               lngRetVal = ClipCursor(rectClipArea)            End Sub            Private Sub cmdUnclip()         Dim lngRetVal As Long         lngRetVal = ClipCursor(ByVal 0&)      End Sub