Crie um modulo e insira o código abaixo nele:
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
Public Function LimitaArea(X1
As Integer, Y1 As _
Integer, X2 As Integer, _
Y2 As Integer) As Long
Dim RC As RECT
RC.Left = X1
RC.Top = Y1
RC.Right = X2
RC.Bottom = Y2
ClipCursor RC
End Function
Para limitar o movimento do mouse use o código abaixo no evento desejado:
LimitaArea 250, 200, 550, 400 'os números são as posições até onde o mouse pode percorrer
Para Voltar ao normal use o código abaixo no evento desejado:
LimitaArea 0, 0,
Screen.Width / Screen.TwipsPerPixelX, _
Screen.Height / Screen.TwipsPerPixelY
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco