Какой код писать чтобы мышка не выходила за пределы формы? в vb 2010

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1
        Timer1.Start()
    End Sub
 
    Sub CursorPos()
        If Cursor.Position.X < Me.Location.X Then
            Cursor.Position = New Point(Me.Location.X, Cursor.Position.Y)
        ElseIf Cursor.Position.Y < Me.Location.Y Then
            Cursor.Position = New Point(Cursor.Position.X, Me.Location.Y)
        ElseIf Cursor.Position.X > Me.Location.X + Me.Width Then
            Cursor.Position = New Point(Me.Location.X + Me.Width, Cursor.Position.Y)
        ElseIf Cursor.Position.Y > Me.Location.Y + Me.Height Then
            Cursor.Position = New Point(Cursor.Position.X, Me.Location.Y + Me.Height)
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        CursorPos()
    End Sub
 
End Class

Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Cursor.Position = New Point(Me.Location.X + Me.Width / 2, Me.Location.Y + Me.Height / 2)
End Sub

 Cursor.Clip = New Rectangle(Me.Location, Me.Size)

  Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Cursor.Clip = RectangleToScreen(ClientRectangle)
    End Sub