Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 39 Picture1.Move Picture1.Left + 100 Case 37 Picture1.Move Picture1.Left - 100 Case 38 Picture1.Move Picture1.Left, Picture1.Top - 100 Case 40 Picture1.Move Picture1.Left, Picture1.Top + 100 End Select End Sub