Como travar o mouse dentro de um formulário

[ℛiqu∊ 13]

Esta dica é muito boa. Com o código a seguir, você vai poder prender o cursor do mouse dentro de um formulário qualquer.

Primeiro você cria um módulo contendo o seguinte código:

 

 

#If Win16 Then Type Retang esquerda As Integer topo As Integer direita As Integer baixo As Integer End Type Declare Sub ClipCursor Lib "User" (lpRetang As Retang) Declare Sub GetWindowRect Lib "User" (ByVal hWnd _ As Integer, lpRetang As Retang) Declare Function GetDesktopWindow Lib "User" () As Integer#Else Type Retang esquerda As Long topo As Long direita As Long baixo As Long End Type Declare Sub ClipCursor Lib "User32" (lpRetang As Retang) Declare Sub GetWindowRect Lib "User32" (ByVal hWnd _ As Integer, lpRetang As Retang) Declare Function GetDesktopWindow Lib "User32" () As Long#End If/pre>Depois você usa os códigos abaixo em um botão ou como quiser para travar e destravar:'restringe o movimento do mouseDim EstaJanela As RetangGetWindowRect Me.hWnd, EstaJanelaClipCursor EstaJanela'Libera no desktopDim DesktopWindow As RetangGetWindowRect GetDesktopWindow(), DesktopWindowClipCursor

 

~Ð@®£@Ñ