What do you think of this "SnapToDefaultButton" code?

[**Developer**]

The code is to snap the mouse cursor to a given button but only if the user
allows it.

I've never read ControPanel values and wonder if there is a better way to
get the info.

The Cursor.Position code was copied from another post.

I sure like to hear if there is a better way but also I'd like confirmation
that this is OK if that is so.

Thanks

Public Shared Sub SnapToButton(ByVal this As Form, ByVal button As Button)

Dim lCurrentUserKey As RegistryKey =
Microsoft.Win32.Registry.CurrentUser.OpenSubKey("C ontrol Panel\Mouse")

If Not lCurrentUserKey Is Nothing Then

Dim GetValue As Integer =
lCurrentUserKey.GetValue("SnapToDefaultButton", -1)

If GetValue = 1 Then

button.NotifyDefault(True)

Dim p As New Point

p.X = button.Left + (button.Width \ 2)

p.Y = button.Top + (button.Height \ 2)

Cursor.Position = this.PointToScreen(p)

End If

End If

End Sub