Private Sub frmMouse_KeyDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.Left Then
            Cursor.Position = _
            New Point(Math.Max(Cursor.Position.X - 5, 0), Cursor.Position.Y)
        End If
    End Sub