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 Form_Load()
Dim r As RECT
' Устанавливаем координаты области для перемещения мыши
r.Left = 100
r.Top = 100
r.Right = 400
r.Bottom = 300
' Привязываем курсор мыши к этой области
ClipCursor r
End Sub