DEPLACER UN CONTROLE COMME AVEC LA SOURIS MAIS AVEC LE PAVÉ NUMÉRIQUE(VS2005)

'event KeyDown du controle (appel de la fonction):
sender.location = sourisoclavier(e, sender.location)

'The fonction :
    Public Function sourisoclavier(ByVal e As System.Windows.Forms.KeyEventArgs, ByVal sourispos As Point)
        Dim deplace As Point
        Select Case (e.KeyCode)
            Case Keys.NumPad1
                deplace = New Point(sourispos.X - 1, sourispos.Y + 1)
            Case Keys.NumPad2
                deplace = New Point(sourispos.X, sourispos.Y + 1)
            Case Keys.NumPad3
                deplace = New Point(sourispos.X + 1, sourispos.Y + 1)
            Case Keys.NumPad4
                deplace = New Point(sourispos.X - 1, sourispos.Y)
            Case Keys.NumPad6
                deplace = New Point(sourispos.X + 1, sourispos.Y)
            Case Keys.NumPad7
                deplace = New Point(sourispos.X - 1, sourispos.Y - 1)
            Case Keys.NumPad8
                deplace = New Point(sourispos.X, sourispos.Y - 1)
            Case Keys.NumPad9
                deplace = New Point(sourispos.X + 1, sourispos.Y - 1)
        End Select
        Return deplace
    End Function