Clipping and Unclipping the Cursor : Windows Resources « Windows API « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Windows API
3. Windows Resources

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

 

Related examples in the same category