vb Ëø¶¨Êó±êµ½Ä³Ò»Î»ÖÃ

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
    Dim r As RECT
    r.Left = 100: r.Top = 100
    r.Right = 100: r.Bottom = 100
    ClipCursor r
End Sub
Private Sub Command2_Click() '½â³ýËø¶¨
    ClipCursor ByVal 0&
End Sub
'Ô­ÌûµØÖ·:
http://fy5388.blog.163.com/blog/static/5649953720091127115554104/