Forma 2 Command ekleyin tamam
Kod:
Private Type RECT left As Long top As Long right As Long bottom As Long 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 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_Load() Command1.Caption = "Mause sınırla" Command2.Caption = "Serbest bırak" End Sub Private Sub Form_Unload(Cancel As Integer) ClipCursor ByVal 0& End Sub

__________________