[سعود]

استخدمت الارقام افضل

كود :

Public Class Form1
   Private Sub mov(ByVal t As String)
       Select Case t
           Case "Top"
               Button1.Top -= 20
           Case "Right"
               Button1.Left += 20
           Case "Left"
               Button1.Left -= 20
           Case "Bottom"
               Button1.Top += 20
       End Select
   End Sub
   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
       Select Case e.KeyCode
           Case Keys.NumPad0
               mov("Bottom")
           Case Keys.NumPad1
               mov("Left")
           Case Keys.NumPad2
               mov("Top")
           Case Keys.NumPad3
               mov("Right")
       End Select
   End Sub
End Class