Public Class Form1
    Dim value As Point
    value = Cursor.Position
    Cursor.Position = value

    Private Sub MoveCursor()
        ' If the form's cursor is not the Default cursor,
        ' set the Current cursor, move the cursor's Position,
        ' and set its clipping rectangle to the form. 
        If Not Me.Cursor.Equals(Cursors.Default) Then
            Me.Cursor = New Cursor(Cursor.Current.Handle)
            Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y - 50)
            Cursor.Clip = New Rectangle(Me.Location, Me.Size)
        End If
    End Sub
End Class