' 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