【.Net】鼠标点击控制鼠标活动范围 ClipCursor

    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Dim X, Y As Integer
        Dim loc As System.Drawing.Point = Me.Location + Me.MonthCalendar1.Location
        X = (Me.Width - Me.ClientRectangle.Width) / 2
        Y = (Me.Height - Me.ClientRectangle.Height - SystemInformation.CaptionHeight) / 2 + SystemInformation.CaptionHeight
        loc.X = loc.X + X
        loc.Y = loc.Y + Y

        System.Windows.Forms.Cursor.Clip = New Rectangle(loc, Me.MonthCalendar1.Size)
    End Sub

    Private Sub Form1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        System.Windows.Forms.Cursor.Clip = System.Windows.Forms.Screen.PrimaryScreen.Bounds
    End Sub