[asemshahen5]

هذه المرة الكود مكفول و مجرب :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rc = PictureBox1.RectangleToScreen(New Rectangle(Point.Empty, PictureBox1.ClientSize))
        Cursor.Position = New Point(rc.Left + rc.Width / 2, rc.Top + rc.Height / 2)
        Cursor.Clip = rc
        PictureBox1.Capture = True
    End Sub 


لإلغاء قفل الماوس ضع هذا الكود مكفول أيضا :

PHP كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Cursor.Clip = New Rectangle(0, 0, 0, 0)
    End Sub