Dim speed As Integer
 
Private Sub Form_Load()
  Me.KeyPreview = True
  Me.ScaleMode = vbPixels
  speed = 3
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyLeft
      Picture1.Left = Picture1.Left - speed
    Case vbKeyRight
      Picture1.Left = Picture1.Left + speed
    Case vbKeyUp
      Picture1.Top = Picture1.Top - speed
    Case vbKeyDown
      Picture1.Top = Picture1.Top + speed
  End Select
End Sub