nell'evento KeyDown del tuo form srivi:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'
' Dichiari una variabile alla quale assegni il valore dello spostamento
dim MioStep as integer = 10
'
Select Case e.KeyCode
Case Keys.Left
MioPictureBox.left = MioPictureBox.left - MioStep
Case Keys.Right
MioPictureBox.left = MioPictureBox.left + MioStep
Case Keys.Up
MioPictureBox.top = MioPictureBox.Right - MioStep
Case Keys.Down
MioPictureBox.top = MioPictureBox.Right + MioStep
End Select
End Sub
|