control mouse position with arrow keys

[bagstoper]

well i can control the position of the mouse while the form has focus. But that is now what i want. i want to be able to control the mouse while the form is minimized or hidden or in the system tray. this is my working move mouse code maybe it could be optimized but i think it is good.

Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim pos As Point
        Select Case e.KeyCode
            Case Keys.Left
                GetCursorPos(pos)
                SetCursorPos(pos.X - 1, pos.Y)
            Case Keys.Right
                GetCursorPos(pos)
                SetCursorPos(pos.X + 1, pos.Y)
            Case Keys.Up
                GetCursorPos(pos)
                SetCursorPos(pos.X, pos.Y - 1)
            Case Keys.Down
                GetCursorPos(pos)
                SetCursorPos(pos.X, pos.Y + 1)
        End Select
    End Sub
    Declare Function SetCursorPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer
    Declare Function GetCursorPos Lib "User32" (ByRef lpPoint As Point) As Long
End Class

thank you for any help you may offer.

[youngbucks]

Add a Handle on Form.Minimized and Form.Visible and then add :
"Form1_KeyDown()"

[bagstoper]

i dont understand what you mean. i dont know where to add a handler can you make it clearer or provide code?

[youngbucks]

Heres an example that handles form visible:

Private Sub Mouse_Control() Handles Me.VisibleChanged
        If Me.Visible = True Or False Then
            Dim e As System.Windows.Forms.KeyEventArgs
            Dim pos As Point
            Select Case e.KeyCode
                Case Keys.Left
                    GetCursorPos(pos)
                    SetCursorPos(pos.X - 1, pos.Y)
                Case Keys.Right
                    GetCursorPos(pos)
                    SetCursorPos(pos.X + 1, pos.Y)
                Case Keys.Up
                    GetCursorPos(pos)
                    SetCursorPos(pos.X, pos.Y - 1)
                Case Keys.Down
                    GetCursorPos(pos)
                    SetCursorPos(pos.X, pos.Y + 1)
            End Select
        End If
    End Sub

[bagstoper]

it would need to handle something other than me.visiblechanged because that is only called when the visible state is being changed not when it isn't visible. so further help is needed.

[youngbucks]

Private Sub Window_State() Handles Me.Resize
        If Not Me.WindowState = FormWindowState.Normal Then
        'Insert code here
        End If
End Sub