MoveCursorToControl – Moving the cursor to the center of the input control

' Move the cursor to the center of the input control' Example: MoveCursorToControl(Button1)Sub MoveCursorToControl(ByVal target As Control)    ' calc the x/y coords relative to the control    Dim x As Integer = target.Width  2    Dim y As Integer = target.Height  2    ' set the new cursor position, in screen-relative coords    Cursor.Position = target.PointToScreen(New Point(x, y))End Sub