[vbnet]

.....

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    System.Windows.Forms.Cursor.Clip = New Rectangle(Me.Left, Me.Top, Me.Width, Me.Height)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    System.Windows.Forms.Cursor.Clip = Rectangle.Empty
End Sub

.....