커맨드 버튼 2개 추가한후에 예제 실행하면 된다.


Private Type RECT
    left As Integer
    top As Integer
    right As Integer
    bottom As Integer
End Type
Private Type POINT
    x As Long
    y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Form_Load()
    Command1.Caption = "마우스 움직임 제한"
    Command2.Caption = "제한 풀기"
End Sub
Private Sub Command1_Click()
    Dim client As RECT
    Dim upperleft As POINT

    GetClientRect Me.hWnd, client
    upperleft.x = client.left
    upperleft.y = client.top
    ClientToScreen Me.hWnd, upperleft
    OffsetRect client, upperleft.x, upperleft.y
    ClipCursor client
End Sub
Private Sub Command2_Click()
    ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
    ClipCursor ByVal 0&
End Sub





Source Page : http://www.mentalis.org/tips/tip012.shtml